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NedAvno jsem si nAkde pfedetl, ie Japonci dali do prodeje (computer, 
ktery odpovidA na otAzky d it Ate — nechme stranou technicky problem, 
jak se p f(stroji daft zanalyzovat dAtskou fed, pochopit smysl otAzky, 
nalAzt v pamAti sprAvnou odpovAd a jak ji opAt lidskou fedi pfednAst 
— ale co na to ditA? Ti co je majf, to znaji z vlastnf zkuSenosti. „Dej mi 
pokoj“ nebo „co se pofAd vyptAvAS" pffpadnA se stroze odpovi a ne 
vidy zcela sprAvnA. Kontakt ditAte s rodidem je tim sice zachovAn, ale 
ne zrovna tim nejlepSfm zpOsobem. DitA here rodide jako neomylnou 
autoritu. Kdyi se pozdAji dozvi, ie rodid nemAI pravdu, nebo ie neznA, 
je tato autorita pondkud otfesena, cit a lAska zde vSak vAtSinou 
zustanou. Ale co komputer a vztah ditAte k jeho pfesnA a problem 
otAzky zcela vyderpAvajfcf odpovAdi. DitA se dovidA mnohem vice, je 
rychleji vzdAlanA, ale je ochuzeno o citovou strAnku vztahu k rodidi. 
KromA toho vznikA vztah dlovAka ke stroji, k zaffzenf kterA dlovAku 
rozSifuje obzor poznAni, udi ho navfc vyjadfovaci pfesnosti, ale takA 
tvofivAmu mySleni, jak otAzku formulovat di jakou otAzku poloiit, aby 
stroj pfekonal. Z dlovAka tak mQie vyrQstat vysoce inteligentnf tvurce 
daISfch hodnot, dlovAk, ktery se tfeba vice uplatnf v moderni technickA 
spolednosti, protote byl od mlAdi pfesnA a bohatd informovAn. 

„Potfebujeme kvalitativnd novou urovefi vefejnA informovanosti i ve 
vojenskA oblasti" pfSe v listu IZVESTIJA Stanislav KondraSov 
a pokraduje: „Bez ni nemuieme podftat se stabilnf duvArou okolnfho 
svAta vOdi sovAtskA politice. Bez ni nenf moinA seridznf vefejnA diskuse 
vzemi o udelnosti a prioritAch stAtnfho rozpodtu, o tom, jak velkou jeho 
dAst si mOieme dovolit vdnovat na budovAni a udriovAni ozbrojenych 
sil. SovStsky svaz se v roce 1987 na pudd OSN zavAzal, ie oznAmi reAlnA 
vojenskA vydaje. SpInAni tohoto zAvazku je vSak spojeno s propodty, 
kterA komplikuje i tak relativni systAm cen, rozptylenost zbrojnich 
zakAzek po vice nei patnActi ministerstvech, a moinA takA 
v rozhodujfcf mife to, ie nikdo vAinA vydaje nepodftal. Nikoliv ze 
sovAtsky'ch, ale z americkych publikaci se dozvfdAme, ie jeden 
z vyznamny'ch sovAtskych vojenskych dinitelu za nAvStAvy v USA uvedl, 
ie ani sAm skutedny rozsah vojenskych vydaju neznA. NeznAme 
celkovy podetni stav naSich ozbrojenych sil, adkoliv na ZApadA, 
napfiklad v USA, se podetni stav ozbrojenych sil pravidelnA oznamuje. 
Nevfme, jakou dAst z celkovAho podtu naSIch tanku tvofi 10000 
tankQ, kterA se maji zlikvidovat, a kolik tankovych divizi zustane ve 
vychodni EvropA potA, ai pch odtud bude Sest staieno.“ Tyto 
skutednosti podle komentAtora nejen brAni duvAfe okolnfho svAta vudi 
SSSR, ale pfedevSfm brAni racionAInfmu ffzenf zemA, racionAInf 
mobilizaci sil a zdroju k pfestavbA. 

Tolik RudA prAvo z 5. ledna 1989. 

LAta se v zemich RVHP mldky pfedpoklAdalo, ie je to nutny umysl 
utajovatpfesnA dfsla o demkoliv, aby ..tffdnf nepfftel " nevAdAI. Dnes se 
nAm toto utajovAni vSeho do nedAvnA minulosti mstf. Rozrostlo se 
tak, ie jsme neschopnf mft jakoukoli skutednA pravdivou evidenci 
o demkoli, dili jsme v totAInf nevAdomosti o skutednAm stavu vAcf a to 
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kdekoli. ZApadnf zemA nAm proto nevAfi. ..NevAfi naSim udajum 
a provAdAji si vlastnf prOzkumy a evidenci jak to vlastnA v zemich RVHP 
skutednA vypadA.“ (E. Sevarnadze). VSeobecnA neinformovanost, ale 
i neznalost skutednAho stavu vAci vyplyvA takA z totAInf nedisciplinova- 
nosti vyplilovAnf ruznych formulAfu a hlASenl (tuto nedisciplinovanost 
ovSem podporuje jejich vlastni ubohost a dasto i nesmyslnost) 
vymySlenymi nebo vhodnA upravenymi udaji tak, aby vyhovovaly prAnl 
nadfizenych sloiek. ZpracovanA vysledky jsou pak pfirozenA mylnymi 
podklady pro centrAIni zpracovAnf, z kterAho dAle vznikajf nereAlnA 
plAny, scestnA smArnice, nespInitelnA usnesenf. Dodavatelsko-odbAra- 
telskA vztahy jsou naruSeny, ukoly se neplni, prostoje a dluhy rostou. 
A to pfedevSim proto, ie informace nenf strojovA objektivni. ClovAk ji 
zkreslil, upravil, znehodnotil. Komplexnf hromadnA nasazeni a plnA 
vyuiiti vypodetnf techniky, automatizace sbAru a vyhodnocovAni udaju 
by subjektivni vlivy dlovAka vyraznA omezilo, pfesunulo na periferii 
rozhodovaciho procesu. To by se ovSem nAkterym bonapartistOm 
nelibilo, ale stroj vidy rozhoduje objektivnA, nestrannA, vAdecky 
pfesnA. A jedinA exaktnf fizeni spolednosti zaloienA na objektivnA 
pravdivA informovanosti je v moderni dobA moinA. 

Nasazeni vypodetni, automatizadni a dalSi moderni techniky v fizeni, 
vyhodnocovAni, rychIA koordinaci atd. pffmo v masovAm mAfitku do 
vSech hospodAfskych a fidicich strpktur ve vSech zemich zApadniho 
hospodAfskAho systAmu (EHS) umoinilo mimo jinA vyhled sjednocenf 
celA ekonomiky do jednotnAho triniho systAmu po roce 1992. 
S „Nysami“ a „sdoty“ by to nikdy nebylo moinA. TakovAto nadnArodni, 
mohutnA organizace by nikdy nemohla byt rentabllni a bez dokonalAho 
vybavenf nejmodernAjSi technikou by se nutnA zpAtky atomizovala 
a pfijala opAt pfisnA celni, vyvoznf a dalSf opatfenf. Bez supermoderni 
techniky v pokrokovA industriAIni spolednosti nenf tedy moiny rychly 
koordinovany vzAjemnA vyhodny postup vpfed. 

AmatArskA zAjmovA dinnost, stavba nejruznAjSfch pffstroju a zaffzenf 
patfily, patfi a budou patfit mezi krOdky v tomto smAru. 

ing. Jan Klabal 
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Jedni'm z nov^ch drtihG informadnich sluieb pH soudasn6m vyuiiti sbvajfcich tras pro pfenos 
informacf jsou systAmy vyuihrajicl dosud vdnych f&dku v televiznim signAlu. System, ktery pro pfenos 
informace digitAImm zp Osobe m vyuilvA volnych IMkO v pfllsmmkovAm zatemftovacfm intervalu, 
.dostal obecny itezev TELETEXT. 

Tdetextovi sluZba byla poprvA realizovdna ve VeUte Britenii v polovinA sedmdesAtych let u stitnf 
spole£nosti BBC pod itezvem Ceefax a u komerAnl IBA pod itezvem Oracle. 


TetetextovA systemy jsou pOstupnA 
zdokonalovAny a v tAto souvistosti 
existuje dAlenf pfenosovych systemu 
na pAt tzv. urovni: 

UroveA 1— zAkladnf abeceda bez dia- 
kritickych znamAnek, Aest zAkladnich 
barev, relativnA hrubA grafika. Tuto 
uroveA mi britskA verze teletextu 
v zAkiadnim provedeni. 

UroveA 2— abeceda vAetnA diakritic- 
kych znamAnek, pastelovA barvy, 

, hladkA prechody mezi symboiy mo- 
zaikovAho typu. Tato uroveA se AAs- 
teAnA vyuZfvA pfi aplikaci britskAho 
teletextu pro jirte jazyky. 

UroveA 3— zavAdi se tzv. DRCS {Dyna¬ 
mically Redefinable Character Set) 

— dynamicky redefinovatelrte sou- 
bory znaku, tzn. nejprve se z centra 
nadefinujl netypizovanA znaky a sym¬ 
boiy, pak jsou vyvoldvdny obdobnA 
jako znaky typizovanA. V tAto urovni 
je moZno vytvAfet grafiku s vysokou 
rozliSovacI schopnostl, rozAffit poAet 
barev, pouifvat i obrdzkovAho pisma 

_ (japonAtina a AlnAtina). 

UroveA 4— aifageometrickA kddovdnf; 
definuje zobrazovanA znaky s pouZi- 
tfm pAti zAkladnfch povelu pro kres- 
• lenf bodu, Aar a ploch. Lze zobrazit 
obrazy bohatA na podrobnosti, kterA 
se kvalitou bli2( fotografii. V tAto 
urovni pracuje napr. kanadsky sy- 
_ stAm Telidon. 

UroveA 5— alfafotografickA metoda 

— umoZAuje pfenos statickych obra- 
zO s vysokou roziiAovaci schopnostl. 
Obraz mA zpoAAtku hrubou strukturu 
a s postupujicim Aasem se zjemAuje, 
Tato metoda je pouZita pfi vyvoji 
japonskAho systAmu Captain. 

V Ceskoslovensku byio po zvAZenf 
technickych i ekonomickych faktoru 
rozhodnuto zavAst system WST (World 
System Teletext — takto je z pre- 
stitnich a rekiamnlch duvodu nazyvAn 
britsky system teletextu). V sousednich 
zemlch se timto systAmem bucf uZ 
vysllA (NSR, Rakousko, Macfarsko) ne- 
bo se vysliAnl pftpravuje (Polsko). 

ZAktadnl technickA specifikace sy¬ 
stAmu WST: 

1. Data se pfenAAejl rychlostf 6,937$ 
Mbit/s v tzv. „neviditeinych“ tv fAd- 
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cich (tj. fAdcfch A. 7 aZ 22 a 320 ai 
335, kterA nAsleduji tAsnA po snlm- 
kovAm synchronizaAnim impulsu, ale 
nejsou zobrazovdny). Pokud nenl 
vysllAn bAZny tv signAI, lze vyuZit 
vAech tv fAdku. BAhem jednoho tv 
fAdku se pfenese informace o cetem 
textovAm fAdku, tj. Aislo magazlnu. 
Aisle fAdku a 40 zrtaku, v pflpadA 
nulteho fAdku Afslo magazlnu, Aislo 
fAdku, Aislo strAnky a podstrAnky, 
fldld kAdy a 32 znakO. 

2. KaZdA zobrazovanA strAnka mA 24 
textov^ch fAdku po 40 znacich. Prvnl 
fAdek strAnky (tj. fAdek A. 0) se 
nazyvA zAhfavl. Jsou v nAm pfenAAe- 
ny fldld informace nutnA pro zobra- 
zenl strAnky. dAle Afslo zobrizenA 
strAnky, nAzev informaAnf sluZby (na- 
pf. CST-TEXT nebo ORF-TELE- 
TEXT), datum a pfesny Aas. 

3. MaxtmAlnl poAet pfenAAenych 
strAnek je 800, kaZdA z tAchto 
strAnek mGZe ml! aZ 50 pfifazenych 
..podstrAnek**. StrAnky se rozdAlujl 
do tzv. magazfnG po 100 strAnkAch. 
Doba pfenosu jednoho magazlnu je 
asi 25 s pfi vyuZitl dvou fAdku 
v pulsnlmkovAm zatemAovacfm in¬ 
tervalu. Pfi vAtAim poAtu magazine 
nebo pfi vyuZitl „ podstrAnek*' se 
doba pfenosu ceiA relace pffeluAnA 
prodluZuje. 

4. Rychiost pfenosu je moZnA zvAtAit 
zvAtAenlm poAtu vyuZitych fAdku (na- 
pf. 4 nebo 6 v pulsnlmkovAm za- 
temAovacfm intervalu). 

5. Informace jsou pfenAAeny sAriovA 
pomocl digitAinlch slov s jednotnou 
dAlkou osm bite. Sedm bite je infor- 
maAnfch, osmy bit je paritnf. U adres 
a duleiitych funkef je pouZito ochra- 
ny samokorigujiclm Hammingovym 
kddem. 

6. System umoZAuje zobrazeni textu do 
aktivniho obrazu, napf. titutkovAni 
pofade pro nesfyAlcl nebo zobrazeni 
tzv. ..newsflash”, tj. duleZitA krAtkA 
zprAvy, kterA se na obrazovee obje- 
vuje v okamZiku vysliAnl. 

7. MuZe byt pouZito osm barev pro po- 
zadl znakO a viastnf znak. DAle je 
moZnA zobrazovat znaky s dvoj- 
nAsobnou vyAkou. 


Podrobny popis je uveden v souhrn- 
nAm pfehiedu ..TELETEXT — popis 
systAmu WST urovnA 1.5 na str. 9. 


Slav v CSSR 

V Ceskoslovensku do konce roku 
1988 problhalo experimentAIni vysliAnl, 
urAerte pfedevAim pro pracovnlky re- 
dakef teletextu a pracovnlky spojO. Od 
1. 1. 1989 je zavedeno pravidelnA 
vysliAnl. PfedpokiAdA se, Ze hlavnl 
nApinl tAto novA siuiby bude alespoA 
z poAAtku pomoc nArodnfmu hospo- 
dAfstvf, tj. sdAlovAnl informaci z oblasti 
prumyslu, zemAdAistvl, dopravy, zdra- 
votnictvf apod. DAle bude nablzet 
programy rozhiasu a televize, divadei, 
informace o poAasi, vyukovA programy, 
zpravodajskA informace atd. 

Specifickym problAmem zavedenl tele¬ 
textu v CSSR je existence dvou spisov- 
nych jazykA, resp. i nAkterych jazyku 
menAinovych. RozAlfeni souboru znaku 
tak, aby dokonaiA zobrazit vAechna 
diakritickA znamAnka, uZfvanA v AeAtinA 
a sloven AtinA, a dAle o znaky uZfvanA 
v abecedAch sousednich zeml, je uzee 
spojeno s volbou systAmu teletextu. 

ZAkiadnf tabuika znaku 00, platnA 
pro WST urovnA 1 (viz AlAnek „TELE- 
TEXT — popis...“) je navrZena pro 
angtiAtinu. Pfi postupnAm zavAdAnl 
WST v evropskych zemlch musei byt 
spin An poZadavek na zobrazeni speci- 
fickych nArodnlch abeced. Tak vznikly 
dalAI normalizovanA nArodnt tabuiky, 
kde jsou na tfinActi definovanych pozi- 
cfch u mist Any nAkterA nArodnl znaky. 

CeAtina spotu se slovenAtinou obsa- 
huje znaAnA vAtAI poAet zvIAAtnlch 
znaku. Proto musei byt system na 
urovni 1 rozAlfen alespoA pfi pfenosu 
aifanumerickych znaku na uroveA 2. 
Tim se vAak ponAkud prodlouZI doba 
pfenosu a zvyAI se nAroky na funket 
dekodAru. UroveA takovA soustavy se 
oznaAuje jako „uroveA 1,5“. 

Prakticky se pfenos dat na tAto 
urovni provAdi tak, Ze jsou vysllAny tzv. 
neviditelnA fAdky (pakety), kterA maji 
podobny formAt jako textovA fAdky, ale 
maji Aislo vyAAf neZ 24 a nesou dopiAu- 
jici informace pro dekodAr znaku. 

Pro pfijem informaci pfenAAenych 
pomocl teletextu je tfeba, aby televizni 
pfijlmaA byl vybaven speciAInlm deko- 
dArem. 

TeietextovA dekodAry byvaji zabudo- 
vAny pflmo do tefeviznfch pfijlmaAO 
a jsou sestaveny z jednouAelovych 
obvodu VLSI, vyvinutych pouze pro 
tento uAei. 





Obr. 1. Blokovd schema adapteru 


Z dosavadniho vyvoje je zrejmC, ie 
v CSSR bude otazka souCastkovC z&- 
kladny pro dekodCry FeSena dovozem 
bucf souCastek nebo dekodCru, pripad- 
nC celych TV pFijimaCu. DekodCry se 
samozFejmC budou montovat do no- 
vych pFistroju, protoie podle vyjadreni 
pFislusnych odborniku dosud vyrabCnC 
prijimaCe nevyhovuji koncepCne pro 
kvalitni pFijem teletextu. Z tohoto dOvo- 
du, a tak6 proto, ie dekodCry sestave- 
n6 ze speciainich obvodu jsou urCeny 
pro prim6 vesta vCni do televizoru, 
nebude moin6 doplftovat stavajici tv 
pFijimaCe tCmito dekodCry. V souCasnC 
dobC u n4s neni tedy na Cem tyto 
informace prijimat. Je vhodnC zamyslit 
se nad moinosti, jak vyuiit stavajicich 
tv pFijimaCu (i kdyi nejsou zcela vhod- 
n6) a pripadnC daiCich dostupnych 
prfstroju tak, aby bylo moznC teletext 
dekCdovat a zobrazovat na stavajicich 
televizorech i za cenu sniienych kvalita- 
tivnich poiadavku. 

Situace je podobna t6, ktera vznikla 
v CSSR pFi zavad&ni II. tv programu. 
Tehdy byla reSena pomocf konvertoru, 
tj. pFistroju, kter6 umoinily prijem 
druhaho programu i na starSich tv 
pFijimaCidn. Toto reCeni bylo sice ne- 
praktickd (nutnost pFepinani a nastavo- 
vani dvou ladicich prvku), ale pFesto 
umoinilo prijem bez nutnosti zdsahu 
do zapojeni televizoru. 

Navrhovan£ feSeni 

Koncepce pouiiti ,,vnCj§iho“ deko- 
dCru teletextu je zalozena na t&chto 
faktech: 


1. PFenosovC charakteristiky moder- 
nfch barevnych televizoru zaruCuji 

* nezkresleny pFenos barvonosnych 
kmitoCtu (stFednf kmitoCet kolem 
4,4 MHz). Dale byvaji vybaveny 
vstupem a vystupem videosignaiu se 
standardni urovni. Tento videosignai 
samozrejmS obsahuje i r£dky nesou- 
ci teletextova data. (Praktickymi 
zkouCkami bylo zjiStSno, ie pro 
pFijem v mfstech kvalitnfho signaiu 
vyhovl i pFenosnC CernobilC televizo- 
ry s doplnfenym videovystupem.) 

2. Stale vice se rozSiFuji osobni poCita- 
Ce, ktera umoihuji zpracovat vhodnS 
upravenou informaci a zobrazit ji na 
obrazovce televizoru. Barevnd zo- 
brazeni, pouiivand i u jednoduCSich 
poCitaCu, odpovtda CCsteCnC uprave- 
nym poiadavkum na zobrazeni tele¬ 
textu. 

Na tCchto skuteCnostech je zaloiena 
myClenka vyuiit osobniho poCitaCe pro 
dekbdovani a zobrazovani teletextu. 

Samotny' mikropoCitaC samozFejmS 
neni schopen pFimo zpracovat video- 
signal z televizoru. Je tFeba vytvorit 
vhodny mezi&anek (adapter), ktery 
umoini vybrat data, vysilana v pFi- 
slu§nych tv Fadcich, pFevCst je ze 
sdriovaho do paralelniho tvaru 
a uschovat je na potFebnou dobu ve 
vyrovnavaci pamati. Z t6to pamati si je 
pak v dan6m okamiiku mikropoCitaC 
pFesune do svC operaCni pamati, vhod- 
nym zpusobem zpracuje. a zobrazi na 
obrazovce. 

Z uvedenCho zpusobu dekbdovani 
vyplyvaji nSktera omezeni a nevyhody 
proti standardnimu zpusobu dekCdo- 
vani: 

1. zakiadni sestava pro pFijem teletextu 
je sloiena z tv pFijimaCe, adaptaru, 


mikropoCftaCe a monitoru pro mikro¬ 
poCitaC. V praxi to znamena pouiiti 
dvou tv pFijimaCu. 

2. PFi poiadavku na pouiiti pouze jed- 
noho televizoru je nutny bucf zasah 
do pFijimaCe nebo by bylo moind pFi 
pFijmu tv signaiu obsahujiciho tele¬ 
text poiadovanou stranku naCist do 
pamati mikropoCitaCe, pak pFepnout 
tv pFijimad jako monitor a stranku 
zobrazit. V druhdm pFfpad& by tedy 
bahem vybaru a zpracovani dat bvl 
na obrazovce televizoru program 
pFijimanaho vysilaCe (u standardniho 
dekoddru je stale zobrazena posled- 
ni naCtena stranka). Dale by byla 
nutna zvukova signalizace naCteni 
stranky. V pFipada, ie zvolena stran¬ 
ka ma rotujici podstranky, je tento 
zpusob velmi neprakticky. 

3. Vzhledem ke zpusobu zobrazovani 
mikropoaitaau pomoci „okna“ na 
obrazovce (ZX-Spectrum, Sord, 
Sharp) je zobrazena stranka roz- 
marova men§i; to ma za nasledek 
zhorSenou jakost obrazu. 

4. Neni moina vkopirovat zobrazovana 
informace do tv obrazu, tj. nelze 
napF. titulkovat vysilana poFady. 

5. Kaidy mikropoaitaC je zdrojem po- 
marna intenzivniho ru§eni. Taka sam 
adaptar ru§i, i kdyi podstatna mana 
nei mikropoditaC. PFi pouiiti uvede- 
naho zpusobu pFijmu teletextu je 
vlastna mikropofiitaC pFes televizor 
pFipojen k antana. Z toho plyne 
pFedevSim nutnost zkontrolovat 
moinost ruSeni okolnich televiznich 
a rozhlasovych pFijimaCu zviaata 
v pFipada, ie se jedna o pFijem na 
spolednou antanu. Dale je nutna 
poditat s tim, ie pFijem teletextu 
bude zcela znemoinan, pokud pFi- 
jimany vysilat bude v I. nebo II. 
pasmu, a bude obtiiny pFi pFijmu 
vysilaaQ v dolnim konci III. pasma 
(kanai 6. 5 CCIR-B a 6. 6 CCIR-D). 
Tento probiam se netyka jenom 
pFijmu zahraniCnich vysflaCu. Cs. 
teletext je sice vysiian pouze v siti 
druhaho programu (tj. pasmo IV. 
a V.), ale ve spoledn^ch antanach 
byva pFijimany signal pFevadan na 
naktery kanai v pasmu I. a II. a jeho 
vyuiiti pro pFijem teletextu timto 
zpOsobem je znemoinano. ReSenim 
je pak pouze individuaini pFijem 
druhaho programu. 

Dek6dovani teletextu mikropoCita- 
6em naopak umoihuje snadna zpraco¬ 
vani pFijatych dat, jejich pFenos do jina 
informadni sita a dal§i zpracovani. Dale 
je moina upravou programovaho vyba- 
veni modifikovat zpracovani informaci 
podle poiadavku uiivatele. Relativna 
velka operaCni oamaf mikropoCitaCe 


umoihuje i takovy zpusob dekddovani, 
kdy je nakolik poiadovanych stranek 
nejprve nadteno a zpracovano a pak 
jsou postupna v libovolnam poFadi 
zobrazovany bez jakychkoli ztratovych 
Casu. 

Koncepce adapteru pro 
dekddovdni teletextu 
mikropo6lta6em 

Adaptar se skiada ze dvou zaklad- 
nich east! — analogova a digitaini, viz 
blokova schama na obr. 1. 

V analogova Casti je videosignai 
nejprve zesilen ve vstupnim zesilovaCi, 
pak jsou z nCho oddaieny synchroni- 
zaCni impulsy a vlastni data. Tyto dva 
signaiy jsou dale zpracovavany v digi¬ 
taini Casti adaptaru. Ze synchroni- 
zaCnich impulsu jsou odvozeny kiiCova- 
ci impulsy pro Fizeni vybCru dat 
a sariovC-paralelniho pFevodu. Data, 
pFevedena do paralelniho tvaru, jsou 
pFivadCna do identifikaCniho obvodu, 
ktery reaguje na identifikaCni slovo 
teletextu (framing code). V pFipada, ie 
je toto identifikaCnf slovo nalezeno, 
zapiSi se nasledujici data z pFisluSnCho 
Fadku do vyrovnavaci pamati. V aktivni 
doba pulsnimku, tj. v doba, kdy je na 
obrazovce zobrazovan obraz vysilany 
vysilaCem, pak mikropoCftaC Fidi pFe- 
sun dat z vyrovnavaci pamati do vlastni 
operaCni pamati a dale je zpracovava 
podle zadan^ch poiadavku. 

Ve skuteCnosti nejsou jednotlivC 
funkCni bloky ostre oddaieny, ale na¬ 
opak, z duvodu co nejjednoduCCfho 
zapojeni se navzajem prolinaji. 

Popis zapojeni a funkce . 
jednotlivych obvodu 

Zapojeni adaptaru a napajeciho 
zdroje je uvedeno na obr. 2. a 3. 

Analogova cast vlastniho adaptaru je 
FeSena klasickym zpusobem pomoci 
diskretnich souCastek, digitaini Cast 
vyuiiva obvodu TTL SSI, MSI a LSI. 

Tranzistory T1, T2, T3 a T3’ tvoFi 
vstupni zesilovaC, jehoi zesileni Ize 
nastavit promSnnym rezistorem R5. 
PFedpokiada se, ie velikost mezivrcho- 
lovCho napCti vstupniho signaiu je 
v rozsahu 0,5 ai 5 V. Tranzistory T3 
a T3’ vytvaFi oddClenC vystupy video- 
signaiu pro separator a tvarovaC dat 
a separator a tvarovaC synchroni- 
zaCnich impulsu. 

Z emitoru tranzistoru T3’ je signal 
pFiveden do obnovitele stejnosmCrnC 
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slozky tvofen£ho kondenzatorem C8, 
rezistorem R14 a diodou D1. Ten upfna 
temena synchronizadnich impulsu na 
urovefi asi —1 V. Vlastni obrazovy 
signal prochdzf dolnf propustf, ktera je 
tvofena rezistorem R15 a kondenz&to- 
tem C9. Takto upraveny signet je 
pFiveden na neinvertujici vstup kompa- 
ratoru synchronizaPnich impulsu (t/2 
102). Invertujfcf vstup je spojen 
s jezdcem nastavitelneho rezistoru 
R26. Tfmto trimrem se nastavuje vzor- 
kovacf urovert. Na vystupu komparato- 
ru pak ziskame synchronizaPnf smSs 
obsahujlci Fadkova L^sn(mkov6 syn- 
chronizaPni impulsy (H). V obvodu sto- 
2en6m z 103, R18, R19, Cl 9 jsou z tato 
smPsi oddPleny snfmkova synchroni- 
zaPni impulsy (V, V). 

Od snimkovaho synchronizaPnfho 
impuisu (V) je odvozen pomocf dvou 
monostabilnfch klopnych obvodu (104) 
signal GO, ktery vymezuje dobu, po 
kterou se pFedpokiada prfchod Fadku 
obsahujfcfch teletext (tj. Fadky 6. 7 at 
22 a 320 a t 335). PFesna PasovP 
umisteni signaiu GO Ize nastavit pomo¬ 
cf R21 a R23. 

Z emitoru tranzistoru T3 je pFes 
kondenzdtor C4 pFivadPn videosignAI 
pFfmo na neinvertujfcf vstup kompa- 
ratoru (2/2 102). Obvod C5, R9, 2/4 
1.01, RIO, C49 a T4 tvoff spotu s C4 
obnovitel stejnosm6rn6 sloiky. Upnu- 
tfm na urovert Perna se odstraftuje vliv 
kapacitnf vazby na posun urovni video- 
signaiu pfi kolfsdnf strednfho jasu. 
Vzorkovacf urovefi, pfivadPna na inver¬ 
tujfcf vstup komparatoru z R13, musf 


byt nezPvisle na velikosti pFivadPnaho 
videosignaiu vidy uprostFed mezi urov- 
nami log. 0 a log. 1. Toho dosahneme 
tak, te napajfme rezistor R13 ze 
SpiPkovaho usmarrtovaPe T5, R11 a C6 
pFes tranzistor T6, ktery slou2f pro 
posun urovnp napati. Napati na emitoru 
T6 se pFi zm§nach velikosti pFi- 
vad§n6ho signaiu m£nf souhlasnP 
s urovni odpovfdajfci log. 1. Tfm je 
zajiStdno automatickP udrtovanf vzor¬ 
kovacf urovnS na poiadovana hodnota. 
Na vystupu komparatoru dostaneme 
signal DATA, ktery obsahuje teletexto- 
va data v sariovam tvaru. Kondenzatory 
C16 a C16’ slou2f k „doladanf" (tvaro- 
vanf) signaiu DATA. 

Ze signaiu DATA jsou v obvodu 
tvoFenam 105, rezistory R24, R25, R26, 
R27 a kondenzatory C17 a C18 zfskany 
synchronizaPnf impulsy pro generator' 
hodinovaho kmitoPtu 6,9375 MHz. Ge¬ 
nerator vyuiiva jedno hradlo 106 spotu 
s C21, C22 a LI jako osciiator 
a zbyyajfcf hradla slouif jako invertory. 
Na vystupu t achto invertoru zlskame 
signal CLK a CLK, ktery je nutny pro 
sdriovd-paralelni pFevodnfk. Generator 
je kliPovan signaiem GO, tzn. te kmita 
pouze v dobd pFedpokiadanaho pFf- 
chodu teletextovych dat. 

SariovP-paralelni pFevodnfk je reali- 
zovan pomocf posuvnaho reglstru 107, 
obvodu 108, zapojenaho jako osmiPko- 
vy PftaC, a mezi pa mat i (budiPe sbarni- 
ce) lOII. Posuvny registr je klfPovan 
signaiem GO. Na vstup posuvnaho 
registru jsou privadPna data v sariovam 
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Asm.: Signal DATA je atirvy napfipojem' osatoskopu. 

Ize si pomod k/k.ie snimame signal na vyvodu 6.3 
posuvnSho registru 107. 

Obr. 4. PrQb&hy hlavnfch signifu bihem zaiitku jedno ho pulsnfmku 
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Obr. 5. Prubihy htavnfch signifu bihem pffchodu teietextoviho f&dku 
(prubihy jsou idealizovani, skutsCn* vzijemni umtstinf signAIO zivisf na zpoidinf pouZrtych obvodO) 


tvaru, posuv dat je provadPn v rytmu 
hodino vaho kmitoPtu CLK. SouPasna Je 
signal CLK pFivadPn do osmiPkovaho 
PftaPe, ktery vytvaFf zapisovacf impulsy 
(ST61) pro zapis jednoho bajtu do 
mezipamdti 1011. 

Obvody 109, 1010 a 2/4 101 tvoFf 
identifikaPnf obvod, ktery reaguje na 
pFitomnost tzv. ramcovaho k6du na zapat- 
ku teletextovaho tv Fadku. Jestliie se 
na vystupu posuvnaho registru objevf 
tento k6d, pak se na vy stup u 1010 
(vyvod 6. 8) vytvoFf impuls (FR). Pokud 
se tento impuls vyskytne na zapatku 
Fadku (kontrota pomocf 2/4 lOI), je pak 
z tohoto signaiu a ze signaiu TT pomoct 
klopnaho obvodu (2/4 1014) vytvoFen 
signal WE a WE, ktery slouii k oviadani 
mezipamati (1011) a vyrovnavacf pa- 
mati (1019, 1020). Dale je od signaiu 
WE pomocf 3/41012 odvozen synchro- 
nizadnf impuls pro osmi£kovy £fta5 
(108). 

Vyrovnavacf parndf IkB tvoFf obvody 
1019 a 1020. Pro adresovanf tato 
pamati slouii tri Sestnactkova Citade 
1016, 1017 a 1018. Inkrementovanf 
tachto 6fta£u je provadSno pri zapisu 
impulsy (STB1) zfskanymi v osmidko- 
vam dftaCi (108), ktera slouii soudasnd 
pro zapis do mezipamati (1011), pFt 
£teni pak impulsy pFichazejfcfmi pFes 
1015 z mikropodftafie (STB2). PFesny 
okamiik prepisu jednoho bajtu z mezi- 
pamatli do vyrovnavacf pamati (signal 
CS MEM) je odvozen pomocf 1013 
v zavislosti na stavu osmi£kov£ho 
CltaCe (108). 

Protoie vyrovnavacf pamaf nenf nu- 
lovana, je tFeba pFi Cteni vymaskovat ty 
bajty, ktera nebyiy pFi pFedchozim 
zapisu pFepsarty. To je provedeno 
pomocf 1022. Cftacf cyklus je zkracen, 
je vyuifvano pouze 448 bajtu vyrov¬ 
navacf pamati. Po pFIchodu snfmko- 
vaho synchronizatnfho impulsu je Cftafi ** 
vynulovan, bahem aktfvnfho signaiu 
GO a WE se inkrementuje a zastavf se 
na ur£ita adrese. Od tato adresy po- 
kraPuje po skon£enf aktivnfho signaiu 
GO v inkrementovanf mikropoCitaC, 
pamaf je v5ak odpojena od sbamice. 
Teprve ai dojde k „pFete£enf" dftaCe 
a jeho vynulovanf, je pamaf pFipojena 
ke sbamici. Jelikoi mikropo£fta£ £te 
pouze 448 bajtO, je zarudeno, ie pFedte 
pouze skutedna poiadbvana bajty, 
ostatnf budou zamaskovany hodnotou 
FF (hex). 

Prvnf monostabilnf klopny obvod 
v 1021 stouii k prodlouienf signaiu WE 
pro signalizaci pfitomnosti teletexto¬ 
vaho signaiu. Druhy monostabilnf klop- 
ny obvod vytvaFf po skon&enf signaiu 
GO impuls nutny pr o Pin nost maskova- 
cfho obvodu (signal INT). 

Prubahy duieiitych signaiu bahem 
jednoho pCIsnfmku a bahem pFIchodu 
teletextovaho datovaho fadku jsou roz- 
kresleny na obr. 4 a 5. 

MikropoPftafi je k adaptaru pFipojen 
pFes obvod typu 8255A. Signaiy CS P10 
a RD PIO nejsou pFipojeny pFes porty, 
ale jsou odebfr4ny pffmo z obvodu 
8255A (vyvod £. 6 a 5). 

Z adaptaru do mikropoPftaPe jsou 
pfivedeny signaiy DO at 07 a GO. 

Z mikropodftaCe do adapta ru jsou 
p fivedeny signaiy ENABLE, CS PfO 
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Nastaveni adaptdru 

Na vstup adaptdru je treba privdst 
videosigndl s mezivrcholovym napdtim 
0,5 ai 5 V viz ddst ..Podminky dobrdho 
pFijmu". Protoie zatim nelze nastavit te¬ 
levizor podle adaptdru, naladlme jej na 
co nejostFejdi obraz. 

Zesileni vstupniho zesilovade se na- 
stavi rezistorem R5 tak, aoy na rezisto- 
rech R7 a R8 bylo mezivrcholovd napdti 
asi 3 ai 5 V. PFi niidi kvalitd signdlu je 
tFeba nastavit vdtdi amplitudu. 

Pak nastavime rezistorem R16 po¬ 
moci osciloskopu vzorkovacf urovefi 
tak, aby na vystupu komparatoru syn- 
chronizadnich impulsQ byly tyto impul- 
sy stabilnf, ale pFitom nedochazelo ke 
vzniku falednych impulsu. Zkontroluie- 
me prGbdhy signdIG H, V a V, kterd 
must odpovidat prGbdhGm na obr. 4. 
Pak zkontroluieme a nastavime pro- 
mdnnymi rezistory R21 a R23 signal GO 
a GO. PFi nastavovdni se orientujeme 
podle mdFiciho Fddku. Pro tyto prdce je 
vhodny dvoukandlovy osciloskop nebo 
alesport osciloskop s moinosti externi 
synchronizace. PFi nastavovdni signdlu 
GO osciloskop synchronizujeme sig- 
ndlem V. PFi nastavovdnf je tFeba vzit 
v uvahu, ie mohou byt zobrazovdny 
sudd i lichd pGlsnfmky, kterd jsou 
navzdjem o pul Fddku posunuty. Z toho 
plyne, ie vdechny signdly spjatd 
s Fddkovymi synchronizaCnimi impulsy 
se mohou zobrazovat ve dvou pozicich. 
Naopak signdl GO, ktery je odvozen od 
snimkovych synchronizadnich impulsQ, 
musl byt naprosto stabilnf a musf byt 
nastaven s jistym pFesahem tak, aby 
pFekryval vyskyt teletextovych FddkG 
v suddm i lichdm pOlsnimku. Je vhodnd 
nastavit diFku aktivnfho signdlu GO 
podle skutednd vysilanych teletexto¬ 
vych FddkG. V pripadd pFfjmu vfce 
ruznych systdmG se nastavf dfFka GO 
podle nejrozsdhlejdiho z nich. 

Pro pFenos teletextu mohou byt 
obecnd pouiity Fddky C. 7 ai 22 (resp. 
320 ai 335). Cs. televize vyuifvd zatim 
Fddky 6. 19, 20 (332, 333). MdFicf Fddek 
md 6. 17 (330). 

Oscildtor hodin pFedem naladfme (s 
kontrolou Citadem) tak, aby volnd kmi- 
tal na kmitodtu asi 7 MHz. Pro nastave¬ 
ni je tFeba odpojit signdl GO od vstupu 
5.3 obvodu 106, nepFipojovat videosig- 
ndl, aby nedochdzelo k tvarovdni syn- 
chronizadnfch impulsu (signdl SYNCH) 
a ditad pFipojit na vyvod 6. 8 nebo 12 
obvodu 106. ' 

Jestliie mdme pFedbdind nastaveny 
oscildtor hodin, pFipojime osciloskop 
na signdl WE (osciloskop synchronizu¬ 
jeme signdlem GO) a promdnnym 
rezistorem R13 se snaiime nastavit 
takovou vzorkovacf urovefi pro kompa- 
rdtor dat, aby prQbdh signdlu WE 
odpovfdal prubdhu na obr. 4 a byl 
stabilnf. MQieme si pomoci i jemnym 
doladdnim oscildtoru a doladdnim tv 
pFijimade, ze kterdho zfskdvdme video- 
signdf (viz ddst ..Podminky dobrdho 
pFijmu"). Podet impulsQ signdlu WE 
musf odpovidat podtu pFitomnych tele¬ 
textovych FddkG. Ddle se mohou nepra- 
videlnd vyskytnout i falednd impulsv 
odpovfdajfcf FddkQm se synchroni- 
zadnfmi impulsy soustavy SECAM nebo 
mdFicfmu Fddku. 

Nakonec nastavime pomoci promdn- 
rtdho rezistoru R32 zpoiddni signdlu WE 
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na dobu o ndco deldi nei je doba trvdnf 
jednoho pulsnimku, tzn., ie pFi pFitom- 
nosti teletextovych dat bude na vyvodu 
d. 5 obvodu 1021 trvale log. 1. Dioda D5 
pak indikuje pFltomnost teletextovych 
Fddku. 

Tim je pFedbdind nastaveni ukonde- 
no. Je moind jeStd zkontrolovat, zda 
v prubdhu aktivniho signdlu WE ditaji 
ditade 108 a 1016,1017 a 1018, a zda po 
skondeni impulsu GO je v 1021 vytvd- 
Fen impuls (signdl INT; viz obr. 4). Ddle 
je moznd vhodnym osciloskopem nebo 
log. analyzdtorem zkontrolovat prQ- 
bdhy signdlu podle obr. 5. PFi pouiiti 
dobrych souddstek by vdak mdlo byt 
vde v poFddku. 

Daldi nastaveni se provddi pomoci 
mikropoditade. Pro ovdFeni dinnosti 
adaptdru slouii v pFiloze 1 uvedeny 
program v BASICu a rutina ve strojo- 
vdm kddu. Jsou urdeny pro mikropo- 
ditad ZX Spectrum, Ize je vdak snadno 
upravit i pro jind podftade. PFi Qpravd je 
pFedevdfm nutnd pFeadresovdni vstup- 
nich a vystupnfch portu obvodu 8255A 
podle dandho podftade. 

Propojenf adaptdru a interfejsu 
s obvodem 8255A je uvedeno v tabulce 
obr. 6. 


Vyvod 

obvodu 

8255A 

Signdl 

Signdl 

Vyvod 

adap¬ 

tdru 

4 

PA0 

DO 

4 

3 

PA1 

D1 

6 

2 

PA2 

D2 

8 

1 

PA3 

D3 

10 

40 

PA4 

D4 

12 

39 

PA5 

D5 

14 

38 

PA6 

D6 

16 

37 

PA7 

D7 

18 

14 

PCO 

GO 

19 

10 

PC7 

ENABLE 

20 

5 

RD 

RD PIO 

27 

6 

CS 

CS PIO 

28 

7 


_L 

30 


Obr. 6. Propojenf adaptdru s mikropo- 
6(ta6em pomoci obvodu 8255 


Rutina ve strojovdm kddu jednordzo- 
vd pFedte obsah vyrovndvaci pamdti 
a uklddd jej do operadni pamdti od 
adresy 8032 (hex). PFedte 512 bajtQ, 
tzn. celou vyrovndvaci pamdtf (448 
bajtQ) a pak daldich 64 bajtu, kterd ui 
nejsou maskovdny. PFedtend udaje se 
pak zobrazi pomoci programu napsa- 
ndho v BASICu. 

Po spudtdni programu a pak po 
kaiddm stisknuti libovolnd kldvesy je 
na obrazovku jednordzovd vypsdn ob¬ 
sah vdech 448 bajtu vyrovndvaci pa¬ 
mdti. Nejprve jsou vypisovdny zamas- 
kovand bajty, na konci jsou pak vypsd- 
ny teletextovd Fddky vdetnd tFf bajtQ 
obsahujicfch rdmcovy kdd, dislo maga- 
zfnu a dislo Fddku. Zamaskovand bajty 
jsou na Spectru zobrazovdny jako (c), 
rdmcovy kdd jako apostrof. Za rdmco- 
vym kddem ndsleduji dva adresovaci 
bajty, pak daldich 40 znakovych bajtQ 
teletextovdho Fddku a na konci jsou dva 
nebo tFi nulovd bajty. Protoie vdtdina 
kddu pro pFenos alfanumerickych tele¬ 
textovych znakQ se shoduje s kddem 
ISO-7 (ASCII), mdly by byt ndkterd 
Fddky ditelnd (nebo alespoft jejich za- 
ddtek). Mdla by se zobrazit i zdhlavi 
ndkterych strdnek. fil'dici znaky ze 
sloupce 0 a 1 tabulky GO se zobrazi 
inverznd. ftddky, kterd pFenddi grafickd 
znaky nebo dopldkovd informace, se 


samozFejmd zobrazi pomoci ASCII zna¬ 
kQ tak, ie nebudou. ddvat smysl. Ddle 
zkontrolujeme, zda prvni platny Fddek 
ve vyrovndvaci pamdti zadind rdmco- 
vym kddem (apostrof). Pokud tomu tak 
neni, Ize provdst ndsledujicf upravu 
zapojeni: vyvod d. 5 1014 odpojime od 
vyvodu d. 2109 a pFipojime jej k vyvodu 
d. 4 109. 

Pokud se budou zobrazovat stdle 
pouze neditelnd Fddky, je tFeba hledat 
chybu v adaptdru. Ze zobrazovanych 
znaku je moind napF. usoudit, zda se 
pFenddi sprdvnd vdechny bity DO ai D7, 
zda funguje maskovdni pamdti atd. 

Konednd nastaveni provddime s pro- 
gramem TELETEXT. Pokud se pFi 
pouiiti testovaciho programu podaFilo 
naditat alespoh zaddtky ndkterych Fdd- 
kQ, mdlo by byt moind po spudtdni 
programu TELETEXT nadist teletextovd 
testovaci strdnky (v deskdm vysildni 
magazin d. 8, ve slovenskdm d. 3). 

Nejprve opakovand naditdme strdn- 
ku s ndzvem ZKOU$KA SYNCHRONI¬ 
ZACE DEKODERU a nastavime pFesnd 
kmitodet hodin, pFipadnd urovert vzor- 
kovdnf dat. Pak opakovand naditdme 
strdnku OPTIMALN( SYNCHRONIZACE 
DEKODERU a pokud je tFeba, dosta- 
vime uroved vzorkovdni dat, pFipadnd 
jedtd jemnd doladfme kmitodet hodin. 
Nakonec nadteme strdnku ZKUSEBNf 
OBRAZEC TELETEXT a zkontrolujeme 
zobrazovdni vdech znaku, mddQ zobra- 
zeni a dinnost vdech funkci. 

Pokud je vde v poFddku, mQieme se 
pokusit zmendovat zesileni vstupniho 
zesilovade (R5) a pFitom jemnd doladit 
nastaveni kompardtorQ (R26, R13). Cfm 
kvalitndjdf je signdl, tfm mendf zesileni 
mQieme nastavit. (Zpracovdnim sig¬ 
ndlu s nizkou urovni se ddle sniii 
nepFfznivy vliv zmdn stFedniho jasu 
a kolfsdni urovnd videosigndlu na 
sprdvnost dekddovdni.) Optimdini am- 
plituda signdlu na rezistorech R7 a R8 
je asi 3 V, zdleii vdak na zdroji signdlu. 
V ndkterych pFipadech muie ddvat 
lepdi vysledky i amplituda 5 V. 

PFi ddlkovdm prijmu muieme ddle 
nahradit kondenzdtory C16 a Cl6’ 
otodnym kondenzdtorem o kapacitd asi 
500 pF a pokusit se pfi opakovandm 
naditdni zkudebnfch strdnek nastavit 
pFijem s co nejmendfm podtem chyb. 


Konstrukdni feSenl 


Cely adaptdr vdetnd zdroje byl posta- 
ven na univerzdlnf desce. Spoje byly 
vedeny vodidem se samopdjitelnou 
izolaci. Rozloieni souddstek neni kritic- 
kd s vyjimkou vlastniho sdriovd-para- 
lelniho pFevodniku a generdtoru hodin. 
Tyto obvody, tj. 105,106,107 a 1010 je 
vhodnd umistit co nejblfie k sobd. Ddle 
je tFeba napdjet tyto obvody z jednoho 
uziu a tento uzel blokovat tantalovym 
kondenzdtorem 4,7 j*F. 

U vdech 10 byl do napdjenf zapojen 
blokovaci kondenzdtor 68 nF (100 nF), 
u 102 byly pFipojeny na kladnou 
i zdpornou vdtev napdjeni. 

Jako LI byly pouifvdny neupravova- 
nd civky ze zvukovych mf modulu ds. 
televizorQ. PFesny podet zdvitG neni 
kriticky, hrubd je moind oscildtor dola¬ 
dit zmdnou kapacity kondenzdtoru C21 
a C22. Pomdr C22/C21 by mdl byt 
pFibliind 1,5. 

Diody D2 a D3 byly pouiity z toho 
dGvodu, ie pFi experimentdlnfm ovdFo- 
vdni byl generovany signdl GO stabil- 
ndjdf, nei pFi pouiiti zapojeni bez 




I 


PFiloha 1 techto diod. Jako C13 a C15 je vhodrte 

Testovacf program v BASICu a rutina pro pFedtenf obsahu vyrovn&vacl parrteti pouiit stabilnf kondenz^tory, nen( to 

v§ak nutn^ podmfnka. 

PFedepsarte typy 10 fady 74ALS, 74S 
a 74 musi byt dodrJeny u 103, 106 
a 1015. Na mfste 105 je moirte pouiit 
typ 7403. U ostatnich obvodO Ize pou2ft 
Fadu 74S i 74. PFi pouiiti typO 74 
sou6asrte na pozicfch 109, 1010, 101 
a 1014 m02e dojft vzhtedem k velk6mu 
zpoSctenf k chybrte funkct s6riov§- 
paralelniho pFevodnfku. V tomto pFipa- 
cte je moirte pFfmo propojit vyvod 
6. 8 1010 s vyvodem 6. 10 1014. Pak 
je adapter schopen pracovat spolehlivS 
i s temito obvody, ale za uriitych 
okcrinosti muie byt dekod6r n&chyl- 
rtejSi k vyskytu chybnych F&dku. 

Adapter je s mikropoCitadem propo- 
jen trirtectizilovym plochym vodifcem 
d61ky asi 35 cm. Vldeoslgnai z tv pFi- 
jimade je pFtveden stwtenym nf kab- 
Ifkem daiky asi 1 m. 
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1 REM LOAD ""CODE 32768,100 
5 RANDOMIZE USR 32768 
10 RANDOMIZE USR 32791 
20 LET i=32818 
35 aS *. GO SUB 1000 
90 IF INKEY$=" THEN GO TO 90 
100 GO TO 10 

999 STOP 

1000 FOR j=i TO i+447 
1010 LET a=PEEK j 

1012 IF (a=39) AND <j<=i+446> THEN PRINT 
1018 IF a>=128 THEN LET a=a-128 
1020 IF a>=32 THEN PRINT CHR$ (a)} 

1030 IF a<32 THEN PAPER 0: INK 7: PRINT CHR*(a+64);: PAPER 7: INK 0 
1040 NETT j 
1050 RETURN 


.z80 t use z80 cpu 




.phase 

8000h 

5 origin for ZT-Spectrum 



5 teletext test program 




; i/o port assignments 




: pa - data from teletext 




; pcO - 7go signal Free teletext 



; pc7 - enable signal to teletext 



; program equates 


001F 


pa equ 

lfh 

j pio port a 

005F 


pc equ 

5fh 

; pio port b 

007F 


cr equ 

7fh 

; pio control register 

0093 


cm equ 

10010011b 

} control word for pio 

OOOF 


enbll equ 

00001111b 

; enabled command 

OOOE 


enblO equ 

00001110b 

; enable=0 command 



; startup procedure - ppi initialization 

8000 


init: 



8000 

3E 93 

Id 

a,cw 

} send control word to ppi 

8002 

D3 7F 

out 

(cr),a 


8004 

3E OE 

Id 

a,enbl0 

{ and reset enable signal 

8006 

03 7F 

out 

(cr),a 


8008 

18 0D 

jr 

main 

; jump to main program 



; waiting for go signal 


800A 


waitgo: 



800A 

DB 5F 

in 

a,(pc) 

j check go bit 

800C 

CB 47 

bit 

0,a 

; active in low 

800E 

20 FA 

jr 

nz,waitgo 

; go not found 

8010 


waitgcl: 



8010 

0B 5F 

in 

a,(pc> 

; check go bit again 

8012 

CB 47 

bit 

0,a 

; now active in high 

8014 

28 FA 

jr 

z,waitgol 

; go active - wait 

9016 

C9 

ret 


; return to caller 



; get the teletext lines to buffer 

8017 


main: 



8017 

F3 

di 


; disable interrupts 

8018 

CD 800A 

call 

waitgo 

; waiting for go signal is finished 

801B 

3E OF 

Id 

a,enbll 

; set enable signal to 1 

801D 

B3 7F 

out 

<cr),a 


80IF 

01 001F 

Id 

be,pa 

; port base address+256* * of bytes (*256) 

8022 

21 8032 

Id 

hi,buffer 

; store area for data 

8025 

ED B2 

inir 


; get data from decoder 

8027 

01 001F 

Id 

be,pa 

; port base address+256* • of bytes 

802A 

E0 B2 

inir 


; get data from decoder 

802C 

3E 0E 

Id 

a,enbl0 

; reset enable signal 

802E 

D3 7F 

out 

(cr),a 


8030 

FB 

ei 


; enable interrupts 

8031 

C9 

ret 


; return to basic 

8032 


buffer:defs 

512 

{ buffer area 


end 


Podminky dobr£ho pfijmu 

Pro dobry pFfjem teletextu je nutrte 
splrteni techto dvou zakladnfch pFed- 
pokladu: 

a) Vhodny televiznl pFijhnaC, ze kter6ho 
zlskavame videosignai pro zpraco- 
v&ni v adapteru. 

b) Dokonaly pFIjem pFfslu5n6ho tv vy- 
siia£e. 

Pod oznafienim vhodny prijimaC je 
my§len pFedevSim pFijlmad pro barev- 
ny obraz. V rtekterych pFIpadech Ize 
pouiit i dobfe seFfzeny Cernoblly pFi- 
jfmat, pokud ma vstupnf dll a obrazo- 
vou mezifrekcenci zapojeny obdobnd 
jako barevna prijfmaCe. To znamena,. 
te vhodn6 jsou ty 6s. pFijima6e, kter6 
majf obrazovou mezifrekvenci osaze- 
nou integrovanym obvodem A240D 
nebo A241D. Zahrani6nl televlzory, za- 
pojen6 obdobna, budou patrnS tak6 
vhodn6, nebyly v§ak autory vyzkouSe- 
ny. RozhodnS se nehodi starSI typy 
televizorO, kter6 maji obrazovou mezi¬ 
frekvenci osazenou tranzistory nebo 
dokonce elektronkaml. 

Pokud je napajeni televizoru FeSeno 
bez galvanickdho oddSleni od site, je 
nutny odd&lovacf transformator. 

Videosignai Ize zlskat bud* ze stan- 
dardnlho videovystupu nSkterych tv 
pFijima£u (Oravan, Manes, AleS) nebo 
je nutrte vystup do tv pFijimade doplnit. 
Pokud nenf zaruden dokonaly pFfjem 
nebo jde o daikovy pFIjem zahrantenich 
vysfladu, pracujlcich v nornrte CCIR- 
B a CCIR-G, je zviastnl video vystup 
nutny v2dy. 



Macros: 


Obr. 7. Zapojeni videovystupu 


Symbols: 

8032 BUFFER 

007F 

CR 

0093 

CW 

OOOE 

ENBLO 

OOOF 

ENBL1 

8000 

INIT 

8017 

MAIN 

001F 

PA 

005F 

PC 

800A 

WAITGO 

8010 

WAITGOt 




Jednoducha, ale osv6d6en6 zapojeni 
videovystupu je na obr. 7 , Toto zapoje¬ 
ni bylo uspSSnfe vyzkouSeno u televizo¬ 
ru Oravan, Merkur a Pluto. Pro vyvede- 
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m sign&lu na zadnf panel televizoru je 
pouzito nestfndnd lanko. 

Pro dobry pffjem je d&le nutnd 
presnd naladdnf tv pfijfmade. Hrubd 
naladfme pfijfmad podle svitu diody D5, 
jemnd doladfme podle zobrazovandho 
Casu (dfslice nesmf vypad^vat) a pak 
pfi opakovandm zobrazeni ndkterC 
zku§ebnf str&nky. Optimainf naladdnf 
se nemusf shodovat s optim&lnfm nala- 
ddnfm obrazu. Pokud televizor nem£ 
vyvedeno dolacTov6nf AFC, je v ndkte- 
rych prfpadech nutnd AFC vypnout 
(vdtSinou otevfenfm dvffek predvolby 
nebo tladftkem). 

Dal§f podmfnkou pro pffjem teletextu 
je, stejnd jako v pffpadd standardnlch 
dekoddru, dokonaly pffjem pffsludndho 
tv vysflade. Pffjem musf byt bez duchu, 
barevny obraz nesmf sndzit a nesmf 
obsahovat ru§iv6 moard. V pffpadd 
snfienych naroku je mo2n6 pripustit 
i Castednd zhorSeny signal, moinost 
prfjmu je tfeba ovdrit. V tomto prfpadS 
je v§ak nezbytnd nutnd doplnit do 
televizoru zvteStnf videovystup. 

Pro informaci jsou uvedeny dva 
pffpady, kde bylo dosazeno vyhovu- 
jfcfho prfjmu teletextu i za zhorSenych 
podminek: 

a) sndieni barevndho obrazu na hranici 
pozorovatelnosti, slabC moard, 
obraz ostry bez „duchu“, 

b) barevny obraz bez pozorovatelndho 
sndienf, zfetelnd moard, obraz mfr- 
nd znehodnoceny „duchy“. 

V tSchto prfpadech mohou das od 
dasu vypadnout ndkterd znaky nebo 
i celd radky. 

Silnd zaruSenf obrazu „duchy“ muze 
zpusobovat systematickd chyby v zo- 
brazovdnf. Na urditd str&nce napr. 
dochdzf ke st&le stejnd chybd, na jinych 
strdnkdch se chyby nemusf projevit. 

Silnd sndienf a silnd moard v obraze 
vdt§inou uplnd znemoznf pffjem. 

System je principled nejcitliv&jdf na 
fmpulsnf ruSenf (komutdtorovd motorky 
atp.). Toto rudeni zpusobuje vypa- 
ddvanf znaku, rddku, skupin rddku 
a dokonce i celych strdnek. Zpuso¬ 
buje i nadtenf faleSnych strdnek, 
pffpadnd muze zcela znemoznit pffjem. 
I rudenf, kterd v obraze nenf takrka 
postfehnutelne, se projevuje tfmto 
zpusobem. Vdtdinou jde o rudenf §iro- 
kopdsmovd, Ize je tedy identifikovat 
tak, ze televizor prepneme na ndktery 
obsazeny kandl I. a It. pdsma pffpadnd 
ndktery nizdf kandl III. pdsma, kde se 
pak toto rudenf projevuje vyrazndjf. 
Jedinym FeSenfm je odstrandnf zdroje 
rudenf. Je mo2nd pokusit se jedtd 
o pffjem vhodndho vysflade na ndkte- 
rdm kandlu v V. pdsmu, kde je vliv 
rudenf vdtdfnou mendf. 

Pfi prfjmu mu2e samozfejmd ru§it 
f vlastnf mikropodftad (jak bylo popsd- 
no v ddsti ..Navrhovand Fedenf"). 

Zdv&r 

Bdhem pffpravy dldnku doSlo k nd- 
sledujfcfm zmdn4m: 

a) Byla vytvofena nove verze programu 
TELETEXT (verze 2.4), kterS od- 
strahuje ndktere nedostatky verze 
1.9 a je rozSfrena o dal§f funkce. 

b) Pro dosaienf kompatibility ZX Spec¬ 
tra a Dodaktiku Gama je nutne pro 
program TELETEXT v. 2.4 pfipojit 
signal GO n^ bit PC2 (pOvodnS PCO), 
tj. na vyvod 16 (pflvodn£ na 14) 
obvodu 8255A. Pro ostatnf poCftaCe 
platf tabulka na obr. 6 beze zm§n. 

c) Ceskoslovenskd televize vysfie od 
9. 1. 1989 teletext v tedefeh C. 7, 8, 


19, 20 (320, 321, 332, 333). Aby bylo 
mo2n6 nastavit potfebnou §ffku sig- 
ndlu GO, je nutn6 zkratovat rezistor 
R20 a pffpadnS ke kondenzdtoru Cl 5 
pfipojit paralelnS kondenz^tor s ka- 
pacitou 33 nF. Ostatnf souCdstky zu- 
st&vajf beze zm§n. 

d) Bylo zji§t6no, te zesilovaCe STA 
mohou omezit tv signal natolik, te 
i pri zd£nliv§ perfektnfm obrazu je 
prfjem teletextu vylouCen. 


Seznam sou££stek 

lr>tegrovan6 obvody: 

102 

UCY75107PC 

104,1021 

UCY74123N 

1011 

MHB8282 

107 

MH74164, MH74164S 

1019, 1020 

MHB2114 

1016, 1017, 


1018 

MH7493A 

108 

MH7490A 

1015 

MH74ALS00 

IOI, 1012, 


1013, 1014 

MH74ALS00, MH74S00, 


MH7400 

103 

MH74SQ0 

106 

MH7410 

1022 

MH74ALS10, MH74S10, 


MH7410 

105 

MH74S03, MH7403 

1010 

MH74ALS30, MH74S30, 


MH7430 

109 

MH74ALS04, MH74S04, 


MH7404 

10101 

MA7805 

Tranzistory: 


T1, T3, T3' 


T4, T5 

KC509 (KC508) 

T7 

KC507 

T2, T6 

BC179 (BC178) 

T101 

KF517 (KFY16, KFY18) 

Diody: 


D1—D4 

KA206 

D101—D104 

KYI 32/80 

D105 

KZ260/5V6 

D5 

LQ1732 

D106 

LQ1432 

Keramicki kondenz&tory: 

Cl 7, C18 

47/TK754, 774, 794 

C23 

56/TK754, 774, 794 

C9, Cl6' 

150/TK794, 754, 774 

C16 

220/TK794, 754, 774 

C24 

470/TK794, 774 

C6 

820/TK724, 794 

CIO, C49 

1nO/TK744, 724, 794 

C7 

4n7/TK783, 764, 744, 764 

C5, C14 

10n/TK783, 764 

C11, C48, 


Cl 2 

22n/TK783, 764 

Cl', C8, C19, 


C20, C27—C46, 

Cl03, Cl04 

100n/TK783, 782 

Svitkovd kondenz&tory: 

C13 

68n/TC215—219 

C15 

100n/TC215—219 

C21 

470/TGL5155—A470/ 


/I0/63 

C22 

680/TG L5155—A680/ 


/I0/63 

Elektrolyt. kondenzitory (tantai): 

C4, C25, 


C26 

4 ji7/TE131—135 

Cl, C2, C3 

22 (»/TE131—135 

Elektrolyt. kondenzdtory 

Cl01,Cl02 

1G/TE 984 

Cl 05 

100 4/TF 009 


Rezistory TR 212 
R6 

R4, R33, 

R102 
R9, R18, 

R19 

R24, R25, R26, 
R27, R29, 

R36 
R7, R8 


R3. RIO, R12, 
R28, R31, 
R34, R35 

1K2 - 

R17 

3K3 

R15, 

R37—R44 

4K7 

R2 

5K6 

R1, R33 

18K 

R20, R22 

22K 

R14 

100K 

R11 

220K 

Rezistory TR 214: 

R101 

220 

Odporovd trimry TP 041 

R13, R16, 

R5 

1K0 

R21, R23 

33K 

R32 

47K 

Konektory 

K2 

FRB TY5173211 

Trafo 

TR101 

220 V/2x8 ai 9 V, 0,5 A 

Ostatnf material 

LI 

cfvka die textu (6 PK 855 
79,80) 

S101 

sffovy vypfnai 

Pol 01 

50mA/250V 

1 ks 

deska ploSnych spojQ 

1 ks 

chladit pro MA7805 

1 ks 

sffova §rtura 

1 ks 

propojovacf SrtOra pro 
video 

1 ks 

propojovacf Srtura pro 
interface 

1 ks 

pojistkovd pouzdro 
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TELETEXT 


Ing. Lumir Pfibyl, Pavel Brychta, 

V. Noska 67,644 11 ZbySov 

Popis systgmu WST urovng 1.5 


1. Zdkladni technickg informace 


l.t TELETEXT je system prenosu informaci, ktery 
umoiftuje pfenddet strdnky tvofend textem 
a grafickymi symboly. Teletextovy signal se 
pfendSi v dosud nevyuiitych rddcich pul- 
snimkovdho intervatu. Pokud nen( teletext 
doplrtkem televizniho obrazovdho signdlu, je 
moiny pfenos signdlu teletextu v libovolnych tv 
rddcich. 

1.2 Dekddovand strdnky se zobrazi bud* samo- 
statnd (tj. mlsto pfijimandho televizniho obra- 
zu), nebo mohou byt prolnuty (resp. vloieny) 
pffmo do televizniho obrazu. Do televizniho 
obrazu mohou byt takd vloieny titulky nebo 
zpravodajskd vstupy. Pozn.: Pt i prolnutf jsou tv 
obraz a pfislu&nd strdnka zobrazeny soudasnd 
pfes sebe, pri violent se vytvofi v obrazu okno, 
ve kterdm je zobrazeha pfisludnd 6dst strdnky. 

1.3 Kaidy datovy fddek teletextu pfenddi bindrni 
signal rychlosti 6,9375 Mbit/s. Tento system 
pfenosu Ize vyuiit v televiznich systdmech typu 
625/50 s difkou pdsma pro pfenos videosig- 
ndlu min. 5,0 MHz. 

1.4 Kaidy datovy fddek pfenddi informaci pro 
synchronizaci dat, informaci pro urOeni adresy 
a k6dy pro fddek, ktery md 40 znaku. 

1.5 Na strdnce Ize zobrazit ai 25 fddku po 40 
znacich, vCetnd zvtddtniho uvodnfho fddku, 
ktery se nazyvd zdhlavf, a poslednfho 
25. fddku, ktery se zobrazi pouze za urfii- 
tych podmlnek (viz odst 3.4.4.2). 

1.6 Zahlavf obsahuje pfidavnd adresovacf a ffdtcf 
udaje, kterd jsou pfenddeny mlsto kddii prv- 
nich osmi znaku. Tyto udaje umoirtuji identifi- 
kovat strdnku a ddle fid! zpusob jejfho zobraze- 
ni. Poslednich osm znaku ze zbyvajlcich 32 je 
vyhrazeno pro zobrazeni redlndho Casu. 

1.7 Pfenos adresovych a fldicfch bajtO vyuifvd 
ochrany pomocf osmibitovdho Hammingova 
k6du. Tak Ize v jednom bajtu pfendst dtyfi 

“’“"'informatni bity, pfidemi jednoduchd chyby' 
jsou v pfijfmafii opraveny. (Jednoduchd chyba 
znamend, 2e v jednom bajtu je z osmi bitu 
jeden chybny). Pro pfenos k6du znaku je 
pouiito ochrany lichou paritou (sedm bitu je 
informaCnfch, jeden bit je paritni), kterd 
umoiftuje Identifikovat jednoduchd chyby. 

1.8 ftddky, kterd obsahuji pouze mezery, nemusi 
byt pfendSeny. 

1.9 Lze pfendSet ai osm souboru strdnek 
— magazinu, kaidy muie obsahovat ai 100 
strdnek. 

1.10 Lze pfendSet ai 3200 variant kaidd strdnky. 
Varianty jsou rozliSeny Ctyfmistnym sub- 
kddem v zdhlavf strdnky (viz odst. 3.1.2 a 3.1.3). 

1.11 Kromd alfanumerickych a grafickych znaku 
se pfendSi je§td ffdicf znaky, kterd slouif mimo 
jind pro ndsledujici funkce: 



Obr. 1. Umlst&nl teletextovych 
datovych f&dkii 
v televiznfm signdlu 


Obr. 2. Urovefi signdlu 
(fiisla tetetextovych fddkO 
nesouhlasi se skutednym 
umfstdnim v signdlu CST) 



referencin' 
misto fodkovd 
periody 


rddkovy 

synchron. 

inputs 



Obr. 3. Synchronizace dat 
(misto ..referenda! mlsto fddkovd periody** patff 
..referendni mlsto tv fddku**) 

a) volba jednd z osmi barev znaku, 

b) volba jednd z osmi barev pozadf. 

c) zobrazeni znaku s dvojndsobnou vySkou. 

d) biikdni uditych znaku, 

e) skryti urditych znaku, kterd mohou byt 
uiivatetem zvklitelndny. 

»• leiwwiw# amove noRj 

2.1 Televizni obrazovy signal obsahuje v oblasti 
pulsnfmkovdho zatemftovaciho intervatu (viz 
obr. 1) Fddky dlslo 7 ai 22 (resp. 320 ai 335). 
Tyto fddky jsou vyuifvdny pro rQznd udely. 
Ndkterd z tdchto fidkO byty dosud volnd a Ize 
je vyuiit pro pfenos teletextovych datovych 
fddku. V pfipadd CST se jednd o fddky disk? 
19, 20 (332,333). Obecnd je moind vyuiit 
libovolnych voinych fddkO. 


2.2 Obrazovy fddek je identifikovdn jako teletex- 
tovy datovy fddek pfitomnosti signdlu pro 
synchronizaci hodin (viz odst 2.9), po kterdm 
ndsleduje tzv. rdmcovy kdd (viz odst. 2.10). 

2.3 Teletextovy fddek pfenddl bindml symboly 
(bity) ve formd signdlu o dvou urovnlch typu 
NRZ (Non-Retum-to-Zero), vhodnd tvarovand 
pomoci filtru. 

2.4 Uroved signdlu je takovd, ie logickd nule 
odpovldd uroved dernd 0±2 % a logickd jed- 
nidce odpovldd 66 (± 6) % z rozdilu mezi urovni 
bild a dernd (viz obr. 2). Rozhodovacf uroved 
lei( uprostfed mezi urovni log. nuly a log. 
jednidky. Tato rozhodovacf uroved se muie 
mdnit fddek po fddku. 

2.5 Bitovd rychlost pfenosu je 444x f„, kde f„ je 
radkovy kmitodet Bitovd rychlost pfenosu- je 
tody 6,9375 Mbit/s (± 25.10*). 

2.6 Referendum mfstem pro dasovdnf dat je 
pfedposlednf logickd jednidka ve siedu impul- 
su pro synchronizaci hodin (viz obr. 3). 
Referendni mlsto televizniho fddku je v polovi- 
nd ampiitudy ndbdind hrany fddkovdho syn¬ 
chron izadnfho impulsu. Referendni misto pro 
dasovdnf dat v signdlu na vystupu yysllade 
distribudnf sftd je zpoiddno oproti refe- 
rendnimu mistu televizniho fddku o 12,0 + 0,4 
—1,0 i»s. 

2.7 Spektrum signdlu dat je asymetrickd 
s inflexnim bodem u kmitodtu, ktery odpovldd 
polovidni bitovd rychlosti. Nad kmitodtem 
5,0 MHz md spektrum prakticky nulovou hod- 
notu, viz obr. 4 a S. 
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Obr. 4. Pfibtiin6 spektrum impulsu dat 
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Obr. 6. PrOchod dat posuvnym registrem 


2.8 Datovy r&dek tetetextu obsahuje 360 bitu. 
kteri tvoFf 45 bajtd. Prvnl tfi baity maji sudou 
paritu a slouil pro synchronized pFijimaCe. 
Zbyvajicich 42 bajtu mi lichou paritu a pfeniSI 
adresu, Fidici kddy a kddy znaku pro jeden 
Fidek. Adresa a Fidicf kddy jsou zabezpeCeny 
Hammingovym k6dem. 

2.9 Prvnfdva bajty katoiho datoviho Fidku jsou 
tvoFeny posloupnosti jedrtiCek a nui 
(101010.. 4, indikujf pFftomnost datoviho Fid¬ 
ku a urCuji Casovinl bitu v datovim Fidku. 
V nikterych pFfpadech mohou chybit v prvnfm 
bajtu prvnl dvd log. jedniCky. 

2.10 TFeti bajt kaidibo datoviho Fidku obsahuje 
tzv. rimcovy kid (11100100). Tento kid siouli 
k synchronizaci jednotlivych bajtu v pFisiuSnim 
datovimfidku pFi dekidovinf. Lze ho identifi- 
kovat i v pFipadi, to jeden jeho bit byl chybni 
pFijat. Obr. 6 ukazuje prOchod dat posuvnym 
registrem a jejich srovnini se vzorem rimco- 
viho kidu. Je zFejmi, to pro spotehiivi urCenl 
pfitomnosti rimcovdho kidu staCi, aby souhia- 
siio nejmbni 7 bitu. 

2.11 Ctvrty a pity bajt kaidiho datoviho Fidku. 
daiSlch osm bajtu v zihlavf strinky (Fidek 0) 
a vfiochny bajty pFeniieni v paketech 26 a 27. 
jsou chrininy pomoci Hammingova kidu. 

2.12 Zbyvajici bajty v kaidim datovim Fidku 
pFeniii kidy znaku. Bajt pro pfenos znaku 
obsahuje 7 bitO urCuiicfch znak (viz obr. 15 
Tabulka GO) a osmy bit pro zabezpeCenf lichou 
paritou. NejdFive se pFeniii bit s nejnitof vahou 
(LS8). 


3. Uspof icttnf stranek a fbdku 

3.1 Adraaovinf 

3.1.1 Ka2dy datovy Fidek obsahuje dva bajty 
chrinini Hammingovym kidem, z nichf tFi 
bity urfiujf Cfslo magazfnu a pit bitu iisio Fidku 
(obr. 7). Cisio magazlnu mtkto byt v rozmezi 
1 a2 8, magazin C. 8 odpovidi adrese 000. 
ostatni odpovldajf vize bitu podie obr. 7. Cisio 
Fidku muto byt v rozmezi 0 ai 31. V CSSR se 
vyuifvi Fidku C O ai 23, dile 24. 26. 27 a 30. 
(VCechny teietextovi datovi Fidky jsou viastni 
datovi pakety. V literature se vitiUnou uifvi 
rtizvu Fidek pro datovi Fidky s Cfsty 0 ai 23 
a nizvu paket pro datovi Fidky s CtsJy 24 ai 31). 
Adresa Fidku odpovidi pFimo vize brtO podie 
obr. 7. 

3.1.2 Datovi Fidky s Fidkovou adresou 0 jsou 
tzv. zihiavi. Obsahuji navfc daliich osm bajtu 
chrindnych Hammingovym kidem, kteri ob- 
sahuti intormaini bity vztahuiici se k pFisiuini 
strince vCetni dvoumfstniho Clsia strinky 
a CtyFmistniho sub-kddu (viz obr. 7). Vyznam 
ostatnfch pFeniSenych bitu je popsin v odstav- 
ci 3.3.5. 

3.1.3 Kaidi strana je urCena jednomlstnym 
Cistern magazfnu (1 ai 8) a dvoumistnym 
Cistern strinky (00 ai 99). Strinky se stejnym 
Cistern magazfnu a stejnym Cistern strinky 
mohou byt diie rozliSeny Ctyfmlstnym sub- 
kbdem. To umoiftuje pFeniiet ai 3200 variant 
jedni strinky. Tento sub-k6d byt puvodni 
urCen k oznaCenf Casu vyslinl strinky. Proto se 
taki nazyvi Casovy k6d a jeho struktura tomu 
odpovidi. Kdd je rozdden na ..hodiny" (00 ai 
39) a „minuty“ (00 ai 79). V souCasni dobi se 
vyuifvi maximilni 50 variant jedni strinky. 
Sub-kid tichto tzv. podstrinek je v rozmezi 
00 00 ai 00 50. 

3.1.4 Strinka rrsOto byt vybrina podie Ctsia 
magazlnu a Clsia strinky nebo podie Clsia 
magazfnu, Clsia strinky a sub-k6du. 
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3.2 Vysitaci poFarfl 

3.2.1 VysRinf vybrani strinky zaCini pFenosem 
zihiavi dani strinky (patFf k dani strince) 
a konCf pFenosem zihiavi nistedujfci strinky. 
VSechny datovi Fidky pFeneseni mezi timito 
zihlavimi a majfcf stejni Cfslo magazfnu jako 
zihlavf vybrani strinky patFf k tito vybrani 
strince. Strinky mohou byt vysiliny v Hbovol- 
nim poFadf. Mohou byt pFeniieny i nekom- 
pietnf strinky. Mohou byt protoieny datovi 
Fidky s jlnym Cistern magazfnu. 

3.2.2 Datovi Fidky patffd k dani strince mohou 
byt vysiliny v libovolnim poradf. Aby byla 
zabezpeCena co nejuCinnijSi funkce dekodbru, 
doporuCuje se hned po zihiavi pFenitet paket 
27 a pak pakety 26. Datovi Fidky vCetni 
zihlavf se mohou opakovat, ptiCemi za platny 

. se povaiuje posiedni bezchybny vyskyt pFi- 
sluiniho datoviho Fidku. Datovi Fidky, kteri 
obsahuji pouze mezery, nemusi byt pFeniieny. 

3.2.3 Datovi Fidky jsou vysiliny tak, aby byla 
vytvofani Casovi prodleva 20 ms (pro vyma- 
zinl strinkovi pamiti nikterych dekodirO) 
mezi vystinlm zihiavi a vysRinim nisledu- 
jicfch datovych ridkO. 


3.3 ZiMavi 

3.3.1 Cisk) strinky, sub-kid strinky a informace 
nutni pro zobrazeni strinky jsou pFeniieny 
v tzv. zihiavi (Fidek O). 

3.3.2 Synchronizace bitu. bajtu a adresovini se 
providi v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.3.3 Prvnich osm bajtu datoviho Fidku pFeniie- 
jfciho zihiavi (tj. 6. ai 13. bajt) je chrinino 
Hammingovym kbdem viz ebr. 7. Tyto bajty 
obsahuji informaCni bity vztahujici se k pfi- 
siuini strince vCetni dvouCiselniho Clsia 
strinky a CtyFiselniho sub-kbdu. Dile zihiavi 
obsahuje 32 kbdu. ve kterych se pFeniif 
zihiavi strinky urCeni pro zobrazeni, tj. Cisio 
magazinu a strinky, datum, nizev informaCni 
sluiby atd. Poslednich osm znaku je vyhrazeno 
pro zobrazeni reiiniho Casu. PFiklady uspo- 
Fidint zihiavi jsou na ebr, 9. 

3.3.4 V 6. a 7. bajtu se pfeniii Cisio strinky. V 8., 
9., 10. a 11. bajtu se pFeniSi sub-kid strinky. 
PFitom 8. bit devitiho bajtu je povaiovin za 
Fidici bit C4, a 6. bit popF. 8. bit jedenicteho 
bajtu jsou povaiovany za Fidici bity C5 a C6. 
Afdid bity C6 a2 C14 jsou pFeniSeny v 12. a 13. 
bajtu. Uspofidint 6. a2 13. bajtu v zihiavi je na 
obr. 7. 
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3.3.5 ftfdict bity se povaluji za aktivnf, jestlile 
majf hodnotu log. 1. 

3.3.5.1 Bit C4 je aktivni v pfipadd, te informace 
prendSend na dand strance jsou zcela rozdilnd 
od informaci pfendSenych predchozi strankou 
se stejnym dislem magazinu a strdnky. Pri 
aktivaci tohoto bitu ndsieduje interval 20 ms 
(viz 3.2.3), nel se zadnou prenaSet data novd 
strdnkv. 

3.3.52 Bit C5 je aktivnf v pfipadd, te dand strdnka 
prendSi tzv. zpravodajsky vstup (..newsflash"), 
ktery se vloli do televizniho obrazu. VeSkery 
text -se zobrazi v tzv. vloiendm m6du viz 
odst 4.2.10. 

3.3.5.3 Bit C6 je aktivni v pfipadd, tie dand 
strdnka prendSi titulky. VeSkery text se opdt 
zobrazi v tzv. vlolendm m6du viz odst. 4.2.10. 

3.3.5.4 Bit C7 je aktivni v pfipadd, ze je vhodndjsi 
potladit zobrazeni zdhlavi dand stranky. 

3.3.5.5 Bit C8 je aktivni v pfipadd, kdyl celd 
strdnka nebo jejt ddst obsahuje novdjSi infor¬ 
mace nel predchozi strdnka se stejnym dislem 
magazinu a stejnym dislem strany. Strdnka 
prenaSend s timto aktivovanym bitem nemusi 
byt kompletni, mule obsahovat pouze ty rddky, 
ktere maji byt zmdndny. 

3.3.5.6 Bit C9 je aktivni v pfipadd, te dand 
strdnka neni v diselnem poradi ostatnich 
pfendSenych strdnek. 


3.3.5.7 Bit CIO je aktivni v pfipadd, te je 
tfeba zabrdnit zobrazeni dand strdnky. 

3.3.5.8 Bit C11 je aktivnf v pfipadd, te je vhodnd 
v dobd dekdni na navolenou strdnku zobrazo- 
vat zdhlavi vSech magazinu a ne jenom zdhlavi 
zvolendho magazinu. 

3.3.5.9 Bity C12, 13. 14 voli zdkladni sou bo r 
znaku viz obr. 20. Tabulka jazykovych variant. 


3.4 Paket 27 

3.4.1 V paketu (fddku) 27 je moznd pfendSet 
adresy tzv. sdruienych stranek, ktere jsou 
urdeny k automatickdmu ukldddni do pamdti 
dekoddru. 

3.4.2 Synchronizace bitu, bajtu a adresovdni se 
provddi v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.4.3 V 6. bajtu je uloien urdovaci kdd, ktery je 
chrdndn Hammingovym kodem. Urdovaci kdd 
pro aktivaci funkce sdruienych stranek je 
0000. 

3.4.4. Adresovdnf sdruienych stranek. Bajty 7 ai 
42 jsou uspofdddny do Sesti skupin po Sesti 
bajtech. Kaldd skupina Sesti bajtu definuje 
adresu sdruiene strdnky. Tyto skupiny jsou 
odislovdny 0 ai 5 podle poradi pfenosu. Kdyi 
se nastavf osmy bit (MSB) 43. bajtu na 
hodnotu 1 (viz odst. 3.4.4.2), jsou takto defino- 
vany sdruiend strdnky oznadend urditou bar- 
vou podle ndsledujici tabulky: 


CK 


skupina 0 ,,dervend“ 
skupina 1 „zelend“ 
skupina 2 ,.ilutd" 
skupina 3 ..modrozelend" 
skupina 4 nevyuzitd 

Skupina 5 seznam (index) sdruienych 
strdnek 

3.4.4.1 Skupina dat pro definici sdruiene stranky 
je tvofena Sesti bajty, kterd obsahuji: 


dislo vztaindho magazinu 3 bity 

dislo strSnky 8 bitu 

sub-kdd strdnky 13 bitu 

ochrannd bity Hammingova kddu 24 bitu 


Poradi bitu je na obr. 10. Nema-li byt specifiko- 
vdn sub-kdd stranky, bude pfendSend adresa 
sub-kddu 3F7F (hex). PfendSi-li se dislo strdnky 
FF (hex) a sub-kdd strdnky 3F7F, neni specifiko- 
vdna iddnd strdnka. Bity, pfenaSend jako relativ- 
nf dislo magazinu, se pouiivaji pro definici disla 
magazinu sdruiend strdnky vzhledem k dislu 
magazinu v 4. bajtu paketu 27. Nastaveni 
kterdhokoli z tdchto bitu na „1“ zpusobi doplndni 
pfisluSndho bitu v disle magazinu. V praxi to 
znamend provdst mezi odpovidajicimi bity disia 
magazinu paketu 27 a disia vztaindho magazinu 
log. operaci exclusive or. Vysledek je pak 
skutednd dislo magazinu sdruiend strdnky. 



zakodovane znaky pro zobrazeni' tento blok osmi byte 
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stuzbya datum. Format neni pfedepsan. pro zobrazovani 
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Obr. 9. Pffklad form&tu datovdho f&dku 
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Obr. 10. Format paketu 27 
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Obr. 11. Format paketu 30 
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1_I 

dislo magazinu 


3.4.4.2 V bajtu 43 paketu 27 se pfenaSf informace 
pro fizeni sdruiovaci funkce. Tento bajt mil 
Ctyfi bity dat a Ctyri bity ochrany Hammingo- 
vy^rn kddem. Kdyi je osmy bit (MSB) nastaven 
na hodnotu 1, znamenii to, ze sdruienC stranky 
maji navazOvat na symboly p(egd§enb pake- 
tem 24. Pak je Cervend tlaCitko vidy funkCnf 
a pokud jsou bity 2,4 a 6 nastaveny na hodnotu 
1, jsou funkCni i tlaCitka zelene, ilutd. resp. 
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modrozelenO. TlaCftko pro navoleni seznamu 
(indexu) je vidy funkCni. (Tato tlaCitka jsou 
souC&sti ovIadaCu ndkterych dekoderu). Kdyi 
je bit 8 nastaven na 0, pak neexistuji sdruiend 
strdnky odpovidajfcf barevnym symbolum, 
a zamezi se zobrazenf obsahu eventu&lnd 
pritomnOho paketu 24. 

3.4.5 Bajty 44 a 45 obsahuji kontrolni slovo pro 
cyklickou kontrolu nadbyteCnosti (CRC) dat 
v paketech 0 ai 25. Zpusob generov&ni tohoto 
slova je uveden v kap. 6. 

3.5 Paket 30 

3.5.1. V paketu 30 se pfenddi data, tykajici se 
televizni organizace. PfendSi se pfibliind jed- 


nou za sekundu s Cislem magazinu 8. Format 
paketu 30 je na obr. 11. 

3.5.2 Synchronizace bitu, bajtu a adresovani se 
provddi v 1. ai 5. bajtu viz odst. 2.9, 2.10 a 3.1. 

3.5.3 V 6. bajtu je uloien urCovaci kdd, ktery je 
chrdndn Hammingovym kddem. Pokud je druhy 
bit nastaven na 0, znamend to multiptexo- 
vanou funkci teietextuv zatemrtovacim interva- 
lu televizniho obrazovdho signdlu (viz odst. 
1.1). Pokud jsou bity 4, 6 a 8 nastaveny na 
hodnotu 0, jsou aktivni funkce popsand 
v ndsledujicich odstavcich 3.5.3.1 ai 3.5.3.S. 
Na jind kddy systdm nereaguje. 

3.5.3.1 Bajty 7 ai 12 obsahuji adresu prvni 
vybrand strdnky, kterd bude ulozena do pamdti 



data 

' 2°2^2 2 2 3 ? 2 s 2 6 



dekodAru bez zAsahu uiivatele a je pak kdykoli 
zobrazitelnA pomoci tlaCitka pro navoleni se- 
znamu (fndexu) (viz odst 3.4.4), pokud 
nebyla zadAna jinA strAnka pomoci paketu 27. 
Pfi naCteni strAnky bez paketu 27 nebo 
s nespecifikovanou strAnkou pomoci skupiny 
5 (viz odst. 3.4.4) se opAt naCte vySe uvedenA 
prvni vybranA strAnka. 

Skupina dat pro definici prvni vybranA strAnky je 
tvorena Sesti bajty, kterA obsahuji: 


Clslo magazinu 3 bity 

Cisto strAnky 8 bitu 

sub-k6d strAnky 13 bitu 

ochrannA bity Hammingova k6du 24 bitO 


Pofadi bitu je na obr. 11. NemA-li byt specifiko- 
vAn sub-k6d strAnky, bude prenA&ena adresa 
sub-k6du 3F7F (hex.). PrenASi-li se Cisto strAnky 
FF (hex.) a sub-kAd strAnky 3F7F, oeni specifiko- 
vAna iAdnA strAnka. 

3.5.3.2 Pro jednoznaCnou identifikaci programo- 
vAho okruhu Ize pouift k6du v 13. a 14 bajtu. 

3.5.3.3 Bajt 15 definuje v krocich po pulhodino- 
vych intervalech rozdil mezi mistnlm Casern 
a svAtovym kooidinovanym Casern (UTC). 
ZApornA hodnoty odpovidaji mistnimu Casu 
zApadnA od Greenwiche. 

3.5.3.4 ModifikovanA datum juliAnskAho katen- 
dAfe MJO se pfenASi v bajtech 16 ai 18. Je to 
pAticifernA Cisto, ktere se mAnl o pulnoci 
(podte UTC); pfitom referenCnimu datu 31. 1. 
1982 odpovfdA udaj MJO 45000. 

' 3.5.3.5 Bajty 19 ai 21 pfenA&ejl svAtovy koordino- 
vany Css (UTC). Je to SesticifemA Cisto, kterA se 
vysilA po dobu nejbliiSI nAsledujici sekundy. 

3.5.3.6 Bajty 22 ai 25 jsou vyhrazeny pro 
informace tykajici se doprovodnAho teieviz- 
nfho programU. 

3.5.4 Od bajtu 26 ai do konce paketu 30 mohou 
byt vysIlAny obecnA znaky ze zAkladni tabulky 
GO. 

3.6 Paket 26 

3.6.1 Tento paket umoiftuje rozSifit soubor 
pfenASenych znaku oproti souboru v tabutce 
GO o znaky z tabulky G2 (obr. 16). Prakticky je 
to provedeno tak, ie po dekddovani tohoto 
paketu se na pfisluSnych znakovych pozicich 
(v fAdcich 1 ai 24) zamAni puvodni znak (z 
tabulky GO) na poiadovany znak z tabulky 
G2. Na pozicich, kterA majf byt pfepisovAny, 
jsou v datovych fAdcich 1 ai 24 vysIlAny 
nAhradni znaky z tabulky GO tak, aby umoifto- 
valy pfijem i na p ekod Arech, kterA nedekddujl 
paket 26. Napf. mlsto plsmen s diakritickymi 
znamAnky jsou vysilAna pnsluSnA pfsmena bez 
tAchto znamAnek. 

3.6.2 Synchronizace bitu, bajtu a adresovAnf se 
provAdl v 1. ai 5. bajtu viz odst. 2.9,2.10 a 3.1. 

3.6.3 V 6. bajtu je uloien urCovaci k6d, ktery je 
chrAnAn Hammingovym kddem. K6dy 0000 ai 
1110 vCetnA pfedstavujf pofadovA Cisia paketu 
26, jejich2 maximAlnl poCet je 15. System 
nereaguje na k6d 1111. 

3.6.4 V 7. ai 45. bajtu vCetnA se rozliSuje 13 
skupin dat po tfech bajtech. 


Obr. 12. Format paketu 26 


i i 



oUanumericka 
a gratkka 
mczera 


000001000 


i i 



otfanumericky 

znck 

1000101 


I I 



aifonumericty znak. ktery 
mfize byt zobraxn tet 
v gmfkMm rchmuttzv. 
pronkdni otfanumenckych 
znakti) 

0001000 




Obr. 13. PFlklady alfanumerlckych a grafickych znakQ 


3.6.4.1 Ve skupinA dat je kAdovAni provedeno 
takto: 

adresa pozice znaku 8 bitu 

popis mAdu 5 bitu 

data urCujlcf znak z tabulky G2 
(vybAr z dopIftkovA tabulky) 
nebo 

znak z tabulky GO 

(kompoziCni kAdovAni) 7 bitu 

ochrannA bity Hammingova kAdu 6 bitu 

Pofadi bitu a uspofAdAnf paketu 26 je na obr. 12. 

3.6.5 AdresovAnf pozice pro znak se provAdl 
pomoci iesti adresovaclCh bitu, ktArA mohou 
nabyvat 64 hodnot DekadickA hodnota 0 ai 39 
urCuje sioupec, 41 ai 63 urCuje fAdek 1 ai 23 
a hodnota 40 urCuje fAdek 24. Adresa pozice 
pro znak jedefinovAna explicitnA skupinou dat, 
kterA obsahuje adresu sloupce. Informace. 
obsaienA ve skupinA, kterA definuje adresu 
f Adku, se vyuilvA u vSech nAsledujfcich skupin, 
definujfcich adresy sloupcu, ai do okamiiku, 
kdy pfijde novA skupina s adresou f Adku. Prvni 
skupina dat musi tedy definovat adresu fAdku. 
Pfi definici adresy fAdku jsou data, pfenASenA 
v 3. bajtu skupiny, ingnorovAna. I kdyi Ize 
pozice pro znaky definovat v libovolnAm 
pofadi, z duvodu co nejlepSfho vyuiitl paketu 
26 se tyto pozice adresujl v pofadi zobrazovAnf, 
tj. zleva doprava a shore dolu. 


3.6.6 Na obr. 16 je uveden uplny soubor znakO 
pro CeStinu a slovenStinu. Tvofi jej zAkiadnl 
soubor (sloupce 2 ai 7) a dodateCnA znaky 
(sioupec 0 a 1). DodateCnA znaky se kAdujl 
dvojlm zpusobem: kompoziCnim kAdovAnfm 
anebo vybArem z dopIftkovA tabulky. 

3.6.6.1 Znaky s diakritickymi znamAnky se tvofi 
stoienim znaku ze zAkiadnl tabulky a diakritic- 
kAho znamAnka z dopIftkovA tabulky (kompo¬ 
ziCni kAdovAni). Majl-li se takovAto sioienA 
znaky objevit na pozici pro znak adresovanA 
podle odst. 3.6.5, pak bity pro popis mAdu 
v rozsahu od 10000 do 11111 urCuji diakritickA 
znamAnko ze sloupce 4 dopIftkovA tabulky 
( obr. 16). a to v postupnAm CfseinAm pofadi. 
Znak ze zAkiadnl tabulky, ktery mA byt doptnAn 
diakritickym znamAnkem, je definovAn sedmi 
datovymi bity. Pokud- se poiaduje znak bez 
diakritickAho znamAnka, je pouiito mAdu 

• 10000 . 

3.6.6.2 MA-li se objevit na adresovanA pozici 
nAktery samostatny znak z dopIftkovA tabulky, 
nabyvaji bity pro popis mAdu hodnotu 01111. 
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Sedm datovych bitu definuje znak z doplfikove 
tabulky ( obr. 16) ze sloupce 2. 3. 5. 6. 7. 

3.6.7 Jelikoi muie byt pouiito vdtSlho poCtu 
paketu 26 na jednd strdnce, je tfeba oznaCit 
posledni paket. Toho se docili nastavenfm 
vSech bitu pro adresu rddku a popis m6du na 
hodnotu 1, a to ve skupind dat pfenaCend v 40., 
41. a 42. bajtu koneCndho paketu 26. TakovGto 
skupina vytvdfi ukonCovaci znaCku. Na data 
v 42. bajtu system nereaguje. Nevyuiite skupi- 
ny dat mezi posledni aktivni skupinou 
a ukonCovaci znaCkou se vyplni opakujicfmi se 
daty ukonCovaci znaCky. 

3.6.8 Dva bajty, kterd ndsledujl za skupinou 
obsahujlcf ukonCovaci znaCku, je moind vyuift 
pro cyklickou kontrolu nadbyteCnosti (CRC) 
dat v paketech 26. Kontrolnl slovo se vytvdfl 
stejnym zpGsobem jako kontrolnl slovo CRC 
v paketech 27 (viz kap. 6), ov§em za pouiitl dat 
z paketu 26. V pffpadd chybdjlcicih dat se 
pfedpoktedd, ie to jsou znaky pro mezeru. 

4. Zobrazeni strBnky 

4.1 Strdnka zobrazend pfijlmaCem obsahuje ai 
25 FddkG. 

4.1.1 Zobrazerte Fddkv odoovldajf paketum dat 
0 ai 24. Rddek 24 se zobrazl pouze tehdy, je-li 
pfendden takd paket 27, a 8. bit 43. bajtu je 
nastaven na 1. Rddek 24 muie obsahovat 
barevrte symboly, kterd usnadrtuji pffstup 
k sdruienym strdnkdm. Pfitom muie byt 
vyuilvdno pPIsluSnych barevnych tlaCItek na 
jednotce ddlkovdho ovldddni. 

4.1.2 Na Fddku 1 ai 24 je 40 mist pro znaky, na 
Fedku 0 je 32 mist pro znaky. Casovy pfenos 
probi'hd zleva doprava. 

4.2 Znaky zobrazovand na Fddku 0 mohou byt 
vSechny znaky z tabulky GO. Znaky zobrazova- 
nd na Fddcich 1 ai 24 mohou byt vdechny znaky 
z tabulky GO a G2. Znaky mohou byt zobrazo- 
vdny v ruznych zobrazovacich mCdech. Volba 
jednotlivych nrtedu je urCena impiicitnd na 
zaCdtku jednotlivych Fddku, explicitnd se pro¬ 
ved! v prubdhu zobrazovdnf fddku pomocl 
Fldiclch znakG ( obr. 17). NCkterd Ffdicf znaky 
maji bezprostrednf uCinek, jind pusobi ai na 
ndsledujicfm mfstd pro znak. Rldicl znaky jsou 
vesntes zobrazovdny jako mezery v barvd 
pozadi. 

4.2.1 Barva znaku (alfanumerickych i grafickych) 
muie byt bite, ilute, modrozelend, zelend, 
purpurovd, Cervend, modrd a CernG. PFIsluSnd 
dvojice fldiclch znaku zdrovefi pfeplnajl zobra- 
zovdni v alfanumerickdm a grafickdm mddu. 

4.2.3 Nov6 pozadi. PFedchGzejicI barva znaku se 
steve barvou novdho pozadf 

4.2.4 Cente pozadi. Nastavi se Cente barva 
pozadi. 

4.2.5 Spojite grafika. Grafickd prvky pfildhajl 
jeden k druttemu bez mezery. 

4.2.6 Odddlend grafika. Grafickd prvky jsou 
odddieny mezerami (prouiky) v barvd pozadi 
(obr. 13). 

4.2.7 SevfenG grafika. SevFerte grafika umoifiuje 
mezeru obsahujic! ffdicl znak pfekryt grafic- 
kym znakem. Tento znak je definovGn pouze 
v grafickdm m6du. Je to posledni znak, ktery 
pfedchdzf pfed danou mezerou a jehoi 6. bit 
me hodnotu 1. Pfitom nesmf dojlt ke zmdnd 
alfanumerika/grafika nebo jednoduche/dvojite 
vySka. Znak sevrend grafiky se zobrazl jako 
spojity nebo odddleny ve shodd s nastavenym 
mddem. 

4.2.8 Skrytf a zviditelndnf znaku. Znaky, kterd 
jsou vymezeny pomocl techto fldiclch znaku, 
se zobrazujf jako mezery do doby, nei jsou 
zviditelndny Cinnosti dekddovaelho zaflzenf 
nebo zesahem uiivatele. 

9 Blikenl a stete zobrazeni (konec blikenf). Znaky, 
kter6 jsou vymezeny pomocl techto fldiclch 
znakG, se zobrazujf stfldavd jako znaky a jako 
mezery v barvd pozadi. KmitoCet blikenl je 
urCen dekddovaclm zaflzenim. 

4.2.10 ZaCetek vktedenl a konec vktedenf. Definu¬ 
je se Cdst obrazu urCerte pro vtoienl do 

• normeiniho tv obrazu (titulky, zpravodajsky 
vstup). Tato funkce je chrdndna zdvojenym 
pfenosem fldiclch znakG oznaCujlcfch zaCetek 
a konec vktedenl. 

4.2.11 Dvojite vy§ka. Znaky jsou prodlouieny 
vertikdlnd do prostoru nesledujiclho fedku. 
Zobrazeni v druttem fedku me stejnou barvu 
znakG i pozadi jako prvnf rddek. Pflpadrte 
znaky pfendSend v druttem fedku jsou ignoro- 
veny. 

5. Zabezpe£eni dat Hammingovym 
k6dem 

Pfenos ndkterych dat je proti chybdm zabez- 
peCen Hammingovym kddem. Pouilve se 
dvou modifikacl toho to zabezpeCenf: 
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Obr. 14. Vytvofenl 
kontrolnlho slova 


16-bitovy posuvny registr 

1 2 3 ,4 5 6 7 8 9 10 T! 12 13 14 IS 16 \ ~, 


vstup 


IL 


sCftaCka modulo 2 


-hodiny 


5.1 Jeden bajt obsahujic! Ctyfi informaCnf bity 
a Ctyfi zabezpeCovacI (ochrannd) bity (varianta 
A). ZabezpeCovacI jsou bity 1, 3, 5, 7, 
informaCnl jsou bity 2, 4, 6, 8. ZabezpeCovacI 
bity se pro danou kombinaci informaCnfch bitu 
doplfiuji podle tabulky Hammingova k6du 
obr. 21a. Pfi dekddovenl se nejprve provedou 
nesledujlci operace: 

A - b8 xor b6 xor b2 xor bl 
B = b8 xor b4 xor b3 xor b2 
C = b6 xor bS xor b4 xor b2 
D = b8 xor b7 xor b6 xor b5 xor b4 xor b3 xor 
b2 xor bl 

xor oznaduje logickou operaci exclusive or 

Graficky jsou testovanC bity vyznaCeny v tabul- 
ce obr. 21b. Vysledky tdchto operaci se po- 
ktedajf za sprevne tehdy, jestliie jsou rovny 
log. 1. Prakticky to znamene, ie vybrane skupi¬ 
na bitG musl mft lichou parltu. Vyhodnocenf 
chyb se proved! podle tabulky obr. 21c. 

5.2 Skupiny tff bajtG obsahujlcf 18 informaCnfch 
bitG a 6 zabezpeCovacJch (ochrannych) bitG 
(varianta B). ZabezpeCovacI jsou bity 1,2,4,8, 
16 a 24, informaCnl jsou bity 3.5.6.7,9,10,11, 
12, 13,14,15, 17 ai 23. ZabezpeCovacI bity se 
pro danou kombinaci InformaCnfch bitG vy- 
poCtou podle nGsledujfdch vztahO: 

bl = not (b23 xor b21 xor b19 xor b17 xor b15 
xor b13 xor bll xor b9 xor b7 xor bS xor 
b3) 

b2 = not (b23 xor b22 xor b19 xor b18 xor b15 
xor b14 xor bll xor blO xor b7 xor b6 xor 
b3) 

b4 = not (b23 xor b22 xor b21 xor b20 xor bIS 
nr b14 xor b13 xor b12 xor b7 xor b6 xor 
bS) 

b8 = not (bIS xor b14 xor b13 xor b12 xor bll 
xor blO xor b9) 

b16 * not (b23 xor b22 xor b21 xor b20 xor 
b19 xor bli xor b17) 

b24 = not (b23 xor b22 xor b21 xor b20 xor 
b19 xor b16 xor b17 xor b16 xor bIS xor 
b14 xor M3 xor b12 xor bll xor blO xor 
b9 xor bS xor b7 xor b6 xor bS xor b4 
xor b3 xor b2 xor bl) 

Pfi dekddovenl se nejprve provedou nGsledu- 
jfcf operace: 

A « b23 xor b21 xor b19 xor b17 xor bIS xor 
b13 xor bll xor b9 xor b7 xor W xor b3 xor 
bl 

B = b23 xor b22 xor b19 xor b18 xor bIS xor 
b14 xor bll xor blO xor b7 xor b6 xor b3 
xor b2 

C = b23 xor b22 xor b21 xor b20 xor bIS xor 
b14 xor b13 xor b12 xor b7 xor b6 xor bS 
xor t>4 

D = b15 xor b14 xor b13 xor b12 xor bll xor 
blO xor b9 xor b8 

E » b23 xor b22 xor b21 xor t>20 xor b19 xor 
bit xor b17 xor b16 

F=b24 xor b23 xor b22 xor b21 xor b20 xor 
b19 xor bIS xor b17 xor b16 xor bIS xor 
b14xorb13xorb12xorb11 xorblOxorbS 
xor b8 xor b7 xor b6 xor bS xor b4 xor b3 
xor b2 xor bl 

xor oznaduie logickou operaci exclusive or 

Graficky jsou testovand bity vyznaCeny v tabulae 
obr. 22a. Vysledky tdchto operaci se poktedajf za 
sprevnd tehdy, jestliie jsou rovny log. 1. To 
znamend, ie vybrane skupina bitG musl mit 
lichou parltu. Vyhodnocenf chyb se proved! podle 
tabulky obr. 22b. 

6. Vytvofenl kontrolnlho slova 

Vytvofeni kontrolnlho slova je znezomdno na 
obr. 14. Na vstup16-ti bttovdho posuvndho registru 
je pfivGddn vysledek souCtu modulo 2 extern (ho 
vstupu a obsahu 7., 9., 12. a 16. stupnd registru. 
Na zaCetku se registr vynuluje ve vdech stupntch. 
Bdhem sekvence 8192 hodinovych impulsG Je 
vstupnj signet tvofen prvnimi 24 znakovymi bajty 
(24 x 8, tj. 192 bitG) ze zehlavf (fedku 0) a nesle- 
dujicmi znakovymi bajty z fedku 1 ai 25 (40 
x 8 x 25, tj. 8000 bitG), a to pfi nornrtelnlm pofadl 
pfenosu. Chybl-li ndktery paket, bere se jako by 
obsahovai vesmds znaky <SP> (mezera) (20). 

V kaiddm bajtu je pofadl bitG b8 ai bl. Toto 
pofadl. kterd je opaCrte nei pfi vysltenl ostatnich 
bajtG textu, slouil pro usnadndnl Cinnosti deko- 
ddru, ktery vyuifvG data uloiend ve strdnkovd 
pamdti. 
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Obr. 16. Tabulka G2 

(1) Sloupec 4 obsahuje diakritickG znamdnka, 
kterd se pfifazujl znakGm z tabulky GO (obr. 15). 

(2) Znak 7/15 je interpretovGn stejnd jako v tabul- 
ce GO. K6d 4/0 je ..nulovd znamdnko", coi 
umoifiuje zobrazeni libovoirteho symbolu z ta¬ 
bulky GO bez diakritickdho znamdnka s vyuiittm 
paketu 26. Kddy 4/9 a 4/12 jsou rezervovdny pro 
budoucl vyuiitl. 
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Obr. 18. Uplny' soubor znakQ pro deitinu 
a slovenStinu 


Pozn&mka: Tento soubor znakQ by! dopl- 
n6n jeStd o znaky 0 a 0. 

Na konci procesu plndnf registru je obsah 
registru tvofen kontrolnfm siovem zdkladnf strdn- 
ky. 

Pofadl pfenosu skupiny se dvdma bajty, kterd 
vznikne 16-ti bitovou cyklickou kontrolou nadby¬ 
teCnosti dand strdnky, je bit 9 ai 16 (CRC A) 
a potd bit 1 ai 8 (CRC B) vCetnd. 







CeStina/ Sv6d- 
na/ Stina 
stovenSti- 
na 



ES vyhrazeno pro narodni vorionty znahj 
-) v soucasne urovni teletextu se nepcu&vajt 
™> pfedpokldda se na zocdfku kazdeho rddku 

cerna pfedstavuje barvu znaku,bilQ pfedstovuje barvu pazodi 

(znaky ve slovpci 4 a 5 mohou byt zobrazeny / v graficktim m6du — tzv. pronikdrtf 

alfanumerickych znakO) 

Obr. 15. Tabulka GO 


DOPLNKOVY MOD OKAMZfTE 
ZOBRAZENf P0SOBEN! 


anglidtina 

nSmdina 

SvSdStina, 

finStina 


francouzStma 
portugalStina, 
SpanSIStina 
CeStina, 

1 1 slovenStina 
1 | 1 madarStina 


Vychodni 

Evropa 


po)§tina 

nOmdina 

srbochorvat- 

Stina 

italStina 

francouzStina 

portugalStina, 

SpanSIStina 

ieStina, 

slovenStina 

madarStina 


Obr. 20. Tabulka jazykovych variant 


ACNl BITY 


MOD 

ZOBRAZENl 

| OKAMZlTE 
! POSOBENf 

Atfanumerika 

m 

CervenS 

zetenS 

modri 

Butt 

purpurovS 
modrozeten/t 
Com4 * 

! 

Tab. ttdku 

Spojitt (grafika) 

Zad. rSdku 

1/9* 

CornS pozadf 

ZaC. ttdku 

1/12 

ZviditetnSnf 

znakO 

Za{. fSdku 
ZSsahuS- 
vatele*** 

St&ISzobrazeni 
konec blikinf 

ZaC. fSdku 

0/9 

Konoc vk&ttnf 

ZaC. F6dku 
0/10**** 

Norm6fni vyika 

ZaC. tedku 

0/12 

UvoinSni grafika 

ZaC. «dku 




modrS 

Hutt 

purpuravS 

modrozeteni 

5em4 


OddSteni (grafika) 1/10 * 


NovSpozadf 


0/1 0/2 0/3 Skrytf znakO 
0/4 0/5 0/6 
0/7 1/1 1/2 
1/3 1/4 1/5 
1/6 1/7 0/0 
1/0 


0/10 * * * * 


BIHdtoi 


ZaCStek vkttdSnf 


Dvojitt vySka 


SevfenS grafika 


* Tyto fkUci znaky mohou pusobit okamiitS nebo n4siedn& 

** AktuSInf barva znakO je vzata jako nov6 barva pozadf 

** Zviditefnfera skrytych znakO nacalS strincejnu2e byt provodono zSsahem uSvatote 

** Tyto ffcficf znaky jsou pfenSSeny zdvojenS; prvnf pfirsobf nSstednS, druhy okamWS 

Obr. 17. Tabulka pOsobenl ffdicfch znakO 




Obr. 21a. Tabulka Hammfngova kddu 
pro jeden baft 
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Obr. 21b. Testy na lichou paritu (varian¬ 
ts A) 


Vystedky 
testu parity 

Vyhodno¬ 

ceni 

Cinnost 

A.B.C 

D 

VSechny 

sprSvnS 

SprSv- 

n6 

chyba 

Pouift 

informainl bity 

VSechny 

spr4vn$ 

Ne- 

sprAv- 

n6 

Chyba 

vb7 

Pouift 

informafini bity 

Ne vSech 
ny 

sprSvn§ 

4 * 

_§_ 

Ndkolika- 

nSsobnS 

chyba 

Odmftnout 
informaCni bity 

Me vSech 
ny 

sprSvnS 

Ne- 

spriv- 

n4 

Jednodu- 

chd 

chyba 

SrovnSnim s tabulkou 
obr. 21b identifikovat 
chybu. Jestliie je v in- 
formafinim bitu, pak 
opravit. Pouift infor¬ 
maCni bity. 


Obr. 21c. Tabulka vyhodnoceni chyb 
(variants A) 



A 

B 

c 

D 

E 

F 

bl 

0 

X 

X 

X 

X 

0 

b2 

X 

0 

X 

X 

X 

0 

b3 

0 

0 

X 

X 

X 

0 

b4 

X 

X 

0 

X 

X 

0 

b5 

0 

X 

0 

X 

X 

0 

b6 

X 

0 

0 

X 

X 

0 

b7 

0 

0 

0 

X 

X 

0 

b8 

X 

X 

X 

0 

X 

0 

b9 

0 

X 

X 

0 

X 

0 

blO 

X 

0 

X 

0 

X 

0 

bll 

0 

0 

X 

0 

X 

0 

b12 

X 

X 

0 

0 

X 

0 

b13 

0 

X 

0 

0 

X 

0 

b14 

X 

0 

0 

0 

X 

0 

b15 

0 

0 

0 

0 

X 

0 

b16 

X 

X 

X 

X 

0 

0 

b17 

0 

X 

X 

X 

0 

0 

b18 

X 

0 

X 

X 

0 

0 

b19 

0 

0 

X 

X 

0 

0 

b20 

X 

X 

0 

X 

0 

0 

b21 

0 

X 

0 

X 

0 

0 

b22 

X 

0 

0 

X 

0 

0 

b?3 

0 

0 

0 

X 

0 

0 

b24 

X 

X 

X 

X 

X 

0 


0 — Testovand bity 

Obr. 22a. Testy na lichou paritu (varian¬ 
ts B) 


7. Zdvdr 

Protoie pfi oznaCovdni fAdku, bajtu a bitu je 
pouiivino Cfslov^nl od 0 vCetnd, mohou vznik- 
nout zddnlivd nesrovnalosti mezi timto popisem 
a jinymi Clunky, kterd se zabyvajf touto problema- 
tikou. Ddle je tfeba vzft v uvahu, ie cely systdm je 
stdie je§t6 ve vyvoji a muJe se v ndkterych 
detailech mdnit A koneCnd, omlouv&me se za 
vSechny nepfesnosti a nedostatky (napf. neuplnd 
tabulka G2, popis paketu 30 atd.), kter6 jsou 
zpusobeny tfm, ie se pfes veSkerou snahu 
nepodafik) zajistit potfebnd prameny. 

Zdvdrem bychom chtftli poddkovat ing. Jifimu 
ReCkovi z Ceskoslovenskd televize za velice 
uCinnou pomoc pH sestavovdnl tohoto Cldnku. 


Vysledky 
testu parity 

Vyhodno¬ 

ceni 

Cinnost 

A, B, C, 

D,E 

F 

VSechny 

sprSvnC 

SprSv- 

nC 

2£dn& 

chyba 

Pouift 

informaCnf bity 

VSechny 

sprSvnC 

Ne- 

sprSv- 

nfi 

Chyba 

vb24 

Pouift 

informaCnt bity 

Ne vSech 
ny 

sprSvnC 

SprSv- 

nC 

NCkolika- 

ndsobnS 

chyba 

Odmftnout 
informaCnf bity 

Ne vSech 
ny 

sprSvnC 

He- 

sprSv- 

n£ 

Jednodu- 

ch4 

chyba 

SrovnSnim s tabulkou 
obr. 22.a) identifikovat 
chybu. Jestliie je v in- 
formaCnfm bitu, pak 
opravit Pouift infor¬ 
maCnf bity. 


Obr. 22b. Tabulka vyhodnoceni chyb 
(variants B) 
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Program TELETEXT md za ukol 
zabezpedit takovd zpracovdni dat pfi- 
chdzejfcfch z adaptdru, aby vyslednd 
soustava, vyuifvajfcf adaptdru a mikro- 
pofiftafie pro pffjem teletextu, pinita 
vSechny funkce bdlnd u standardntch 
dekoddru. Zdkladnf technickd data 
programu ve spojenf s adaptdrem jsou 
uvedena v ndsledujicfch bodech: 

1. Program umoZftuje pffjem teletextu 
systdmu WST urovnd 1.5. Je vyu2f- 
vdno paketu 26 a 27. Paket 30 
a kontrolnf slova CRC nejsou vyuiity. 

2. Zobrazovand strdnka obsahuje 24 
FddkQ po 40. znacfch. Je moind 
zobrazit i doplfikovy 25. Fddek. 

Jsou zobrazovdny vSechny znaky 
ndrodnfch abeced CeStiny/slo- 
venStiny, ndmCiny a SvddStiny. 


16 mikroelektronfka 


3. Program umoirtuje vyuift vSech 
zvIdStnich funkci bdinych standard- 
nich dekoddru (volba strdnky, pffmd 
volba podstrdnky, podrienf rotujfcf 
podstrdnky, zobrazenf v dvojitd 
vySce, skrytd zobrazenf). 

4. Program neumoirtuje vkldddnf titul- 
ku do televiznfho obrazu. 

5. Program umofrtuje tisk zvolenych 
strdnek. 

Zdkladnf poZadavky na Cinnost pro¬ 
gramu TELETEXT byfy stanoveny srov- 
ndnfm se standardnfmi dekoddry tele¬ 
textu. * 

V prvnf Fadd je tfeba, aby program 
umoZnil plnohodnotnd zobrazovdnf vy- 
silanych strdnek, tj. aby sprdvnd reago- 
vai na pfendSend ffdicf kddy a kddy 
alfanumerickych a grafickych znaku. 
Ddle must sprdvnd vyhodnocovat infor- 
mace, obsaiend v dopldkovych pake- 
tech. 

Za druhd je nutnd, aby uZivateli 
poskytt stejny nebo takfka stejny kom- 


fort pri ovldddnf zvlddtnfch funkcf deko- 
ddru. Tyto funkce jsou popsdny ddle. 

Obecnd moinosti grafickdho zpraco- 
vdnf teletextovd strdnky vyplyvajf 
z Cldnku ..TELETEXT — popis... 
Program je schopen z pfijatych infor- 
macf tuto strdnku vdrnd zobrazit vdetnd 
zobrazenf znakG ndrodnfch abeced. 
Vyjimku tvoff ty ddstl strdnky, kde je 
pouiita funkce blikdnf (odst. 4.2.9 Cl. 
..TELETEXT — popis...“). Uvedend 
Cdsti budou zobrazovdny tak, jako by 
tato funkce nebyla pouiita. Ddle mOie 
u urditych ddstf strdnky, vytvorenych 
pomocf grafickych znaku, dochdzet 
k nepfesnostem v barevndm poddnf. 
Tyto chyby v zobrazenf vznikajf pfi 
pfekrytf rastru teletextovd strdnky (24 
fddkQ po 40 pozicfch pro znaky) 
s rastrem mikropodftaCe Sord a Spec¬ 
trum (24 fddkQ po 32 pozicfch pro 
znaky). U mikropofiftaCe Sharp k tdmto 
chybdm nedochdzf. 






25. doplrtkovy F&dek, ktery zobrazujf 
standardm dekoddry pod kompletnl 
strSnkou, je moind vyvolat stisknutfm 
kl&vesy <SP>. PFftomnost tohoto F&dku 
indikuje znak ,>' v levdm horm'm rohu 
obrazu. Doplrtkovy Frtdek se zobrazf na 
mlstrt zAhlavf strrtnky. 

Vzhledem k tomu, ie videostgn&l 
z mikropodftade nenf synchronizov&n 
s prijlmanym televiznfm videosignSlem, 
nenf moind ani pFi vyuiitf vhodnSho 
preplnade realizovat ty funkce, bSinS 
u standardnfch dekodSru, kterd vyza- 
dujl vloienf (pFfp. prolnutf) teletextovS 
strSnky nebo jejf drtsti do tefeviznfho 
obrazu. To se tykS napF. violent Caso- 
v6ho udaje, tituikov&nf poradu, vloienl 
tzv. zpravodajskrtho vstupu, prolnutf 
teletextovS strfinky do tv obrazu, vyuiitf 
funkce „budlk“ atd. PFi prfjmu s vyuii¬ 
tf m dvou televizoru je moinS na jed- 
nom zobrazovat televiznf poFad, na 
druhSm se pak objevujf prfsIuSnS titul- 
ky. ObdobnS je moinS nepFfmo realizo¬ 
vat i funkci „budfk“. 

ZSkladnf funkci u kaiddho dekodSru 
je funkce, kterS umoirtuje zvolit poza- 
dovanou strSnku. Str&nka se voff za- 


/yvod obvodu 
8255A 

Signal 

Signal 

(Centronics) 

18 

PB 0 

Data 0 v 

19 

PB 1 

Data 1 

20 

PB 3 

Data 2 

21 

PB 3 

Data 3 

22 

PB 4 

Data 4 

23 

PB 5 

Data 5 

24 

PB 6 

Data 6 

25 

PB 7 

Data 7 

15 

PC 1 

BUSY 

11 

PC 6 

STR 

07 

GROUND 

GROUND 


Obr. 2. Pfipojen't tiskdmy k mikropo- 
ditadi ZX Spectrum 


d&nfm tFfcifemSho dfsla (tj. vdetnd dfsla 
magazfnu). Tuto funkci samozFejmd 
program umoirtuje a to kdykoli, pokud 
se nach&zf v zrtkladnfm reiimu (tj. 
nejsou apiikovdny funkce HOLD, DOU¬ 
BLE nebo FAST SEARCH, viz d&le). 
Jednotlivd dislice se objevujf postupnS 
v levSm hornfm rohu obrazu vedle 


pfsmene ,P‘ nebo znaku >. Pokud 
dojde k chybS pFi zadSvSnf, stadf 
doplntt zbyvajfcf pozice libovolnymi 
dlslicemi, stisknout <CR> a provSst 
novou volbu. Na rozdft od standardnfch 
dekodSrO vyiaduje program potvrzenl 
volby kl&vesou <CR>. Po tomto potvr- 
zenf se vedle zvolenSho dfsla str&nky 
objevf mSnfcf se dlsla prSvS prijatych 
strrtnek. PFitom nejsou zobrazov&na ta 
dfsla str&nek, kterrt nenrtsleduji v po- 
stupnSm dfselndm poFadf. Jsou to 
v&tSinou pFehiedovS str&nky, kterS se 
vysflajf nrtkolikrSt v jednom cyklu, nebo 
strSnky, pFenSSejfcf titulky. Jakmile 
dojde k nalezenf strSnky se stejnym 
Clslem jako jezadanS, dfsla pFijfmanych 
str&nek zmizf a zobrazf se poiadovanrt 
strdnka. Jestlize je tato strSnka zne- 
hodnocena ruSenfm, je moind provSst 
opakovanS nadtenl klrtvesou ,A‘. 
PFfpadnS rotujfcf podstr&nky se nadftajf 
automaticky. 

Program takS umoirtuje zrychlenou 
volbu pomocf tzv. sdruienych str&nek. 
Tato moinost je indikov&na znakem 
,>* v levSm hornfm rohu obrazu. Po zo- 
brazenf 25. FSdku klrtvesou <SP> je 
moind provdst kl&vesou ,1* ai ,4‘ zrych¬ 
lenou volbu podle prehledu v 
25. Fddku. 

Pomocf kldvesy ,1* je moind prfmo 
volit tzv. indexovou str&nku, tj. str&nku 
se z&kladnfm prehledem. 

DalSi b&inou funkci je zobrazeni 
re&lndho dasu. Cas byvfi zobrazov&n na 
poslednfch osmi pozicfch prvnfho F&d- 
ku (z&hlavf) nejdastdji ve tvaru 
00.00.00. Program umoirtuje prtib&ind 
zobrazeni dasu, pouze pFi nadtenl 
str&nky se das zastavf na dobu potreb- 
nou pro zpracov&nf informacf (r&dovd 
stovky ms). Zobrazeni dasu je potiade- 
no pFi vyuiitf zvl&dtnfch funkci DOUBLE 
a TIME CODE 

Pod oznadenim zvl&dtnf nebo do- 
plrtkovd jsou u standardnfch dekoddru 
bdin& n&stedujfcf funkce: 

— Dvajitd vydka (DOUBLE) — umoirtu¬ 
je pro lepdf roztidenf zobrazit homf 
a dolnf polovinu zvolend str&nky 
v dvojn&sobnd vyfice. 

— Podrienf rotujfcf podstr&nky 
(HOLD) — pokud jsou podstr&nky 
zobrazov&ny po pFflid krStkou dobu, je 
moinS touto funkci jejich rotaci pFeru- 
Sit a podriet zobrazovanou podstrrtnku 
na poiadovanou dobu. Tuto funkci je 
moinS vyuift S u normSInfch strrtnek, 
a to tehdy, kdyi vlivem rudenf dochrtzf 
k dastSmu pFepisovSnf nadtenS strrtnky 
strrtnkou falednou. 

— Zobrazenf skrytych znaku (RE¬ 
VEAL) — tato funkce umoirtuje zvi- 
ditelnenf znaku, kterS jsou pFi prvnfm 
zobrazenf skryty (zobrazeny jako meze- 
ry). VyuifvS se pFedevdfm pro skrytf od- 
povrtdf u kvfzQ nebo pro skrytf informa¬ 
cf, urdenych pouze pro ndkterd uiivate- 
le. 

— PFfmrt volba podstrrtnek (TIME CO¬ 
DE) — pomocf t6to funkce je moind 
zvolit dfslo poiadovand podstrdnky ob- 
dobnd jako dfslo zrtkladnf strdnky (vol¬ 
ba je moinrt pouze u nrtkterych pod- 
strrtnek, tato moinost byv6 vyznadena). 
Volba se prov&df po zvoleni dfsla 
strrtnky. Cfslo podstr^nky se vrttSinou 
zobrazf na mfstrt rertlndho dasu. 

Tfmto zpusobem se zad^vd i das pro 
aplikaci funkce „budfk“. Strdnka, na 
kterd je budfk zobrazen, je viastnrt 
sloiena z rotujfcfch podstr&nek. iejichi 
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Clsla odpovfdajf reAlnAmu Casu. To 
znamenA, ie tato podstrAnka se zobrazl 
v dobA, kdy se jeji Cislo bude shodovat 
s nastavenym Casern. 

Program umoiftuje realizaci vSech 
tAchto funkci. Jejich pfesnA pouiitf je 
popsAno v CAsti Popts oviAdAnt. 

Program navfc umotftuje vytisknout 
zvolenou strAnku dvAma zpusoby. 
U tiskArny se pfedpoktedA rozhranl 
Centronics, nejtApe standard IBM nebo 
Epson. Nastaveni zpusobu tisku 
a viastni tisk se provede pfikazy, kterA 
jsou dostupnA po zobrazeni menu (viz 
Cast Popis ovtedAnl). Tabulka propoje- 
nf tiskArny a interfejsu s obvodem 
-8255A pro mikropoCftaC ZX Spectrum 
}e na obr. 2. ' 

Popis programu TELETEXT 

ProgramovA vybavenf bylo vytvofeno 
pro mikroprocesor Z80 a impiemento- 
vAno na mikropoCftaCe Sord M5, Sharp 
MZ 800 a ZX Spectrum. Program je 
napsAn v makroassembleru Z80, zdro- 
jovy text ma dAIku asi 130 kB. Pfeloie- 
ny strojovy k6d ma dAIku asi 14 kB, 
z toho je asi 6kB vlastnl program, 
zbytek tvoff tabulky a data pro dekCdo- 
vanf. 


Celkovy vyvojovy diagram programu 
je na str. 17. Pro prehlednost jsou 
zakresleny pouze htavnl vazby mezi 
jednotlivymi bioky. 

Hlavni cast! programu TELETEXT je 
procedura IDLE, ktera zajiSfuje 
vzAjemnA propojenf a voianl jednotli- 
vych blokO programu a date zajiSfuje 
i nAkterA stale se opakujici funkce 
(bioky TIME, PAGE). 


StruCny popis funkci jednotlivych 

blokQ: 

INICIALIZACE — zakiadnl inicializace 
systAmu. 

LINEO, UNE1 — vyhledAvA a dekCduje 
adresu fAdku, naCfta zAhlavf zvolenA 
strAnky. 

SEARCH — vyhledAvA rAmcovy (fra¬ 
ming) kCd. 

SCAN-GO — Ceka na ukonCenf nej- 
bliiSiho signalu GO a souCasnA po- 
mocl bloku CONST testuje kiavesnici 
na stisk kiavesy. Po ukonCeni GO 
pfesune date z vyrovnAvaci pamAti 
adaptAru do operaCni pamAti mikro¬ 
poCftaCe pro dalSI zpracovAnl. 

CONST — testuje kiavesnici. 


CARRY — test vtajky indikujicf stisknuti 
kiSvesy. 

INTERPRETER — vote pHsluSnou ruti- 
nu z BLOKU OVLADAnI. 

BLOK OVLAdAnI — obsahuje rutiny 
nutrte pro provAdAnl pffkazO uiivate- 
le (DOUBLE. HOLD. REVEAL, 
CLOCK, TIME, CODE, FAST, 
SEARCH, INDEX, MENU, PRINT, 
HELP, SETUP, EXIT). 

CHECK — vote pflsiusnou rutinu TIME 
a PAGE. 

TIME — porovnAvA systAmovy Cas 
s udajem o reAlnAm Case, pfenASe- 
nAm v zAhlavfch strAnek. 

PAGE — pH vyhledAvAnl zvolenA strAn- 
ky porovnAvA Cislo prAvA naCtenA 
a zvolenA strAnky (vCetnA Cfsla maga- 
zfnu). 

REST — naCftA zbytek strAnky at po 
hlaviCku nAsledujfcf strAnky. 

SAVE — vote rutiny nutnA pro zpraco- 
vAni paketu 27 a paketu 26. 

DEK27 — dekCduje paket 27, 

PAK26 — dekCduje paket 26. 

DISPLAY — fidt zobrazovAnl strAnky, 
vote potfebnA rutiny z BLOKU ZO- 
BRAZENf. 

BLOK ZOBRAZENI — obsahuje rutiny, 
nutnA pro sprAvnA zobrazeni strAnky. 


Popis nAkterych vybfanych dAstl programu 


OVOONf BLOK 


V uvodnlm bloku jsou definovAny nutnA makroinstrukce 
pro komunikaci s paralelnfm rozhranfm a velikosti jednotli¬ 
vych bafrQ. Je uveden pflklad minimAlnich definic, potfeb- 
nych pro Cinnost zAkladnl CAsti programu. 


VYHLEDANf A DEKODOVAnI RADKU 


V dalSI CAsti je popis hlavni procedury pro vyCItAnf dat 
z adaptAru a pro upravu jednoho teletextovAho fAdku. Pro¬ 
cedura vote podprogramy niiSI urovnA (viz dAle), kterA jsou 
zCAsti zAvislA na hardware poCItaCe. Vlastnl hlavni procedura 
pro vyCItAnl je volAna z hlavni programovA smyCky (procedu¬ 
ry IDLE). 


Uvcdni blok 




FRAMING Eft! 
ENABLO EQU 
ENAftl EQU 


000011108 

OOOOU11B 


j Fraainguv Rod 
j ENABE^O 
ENA»E=1 


PROGRANOVANI 8255 


1. Nastaveni reziau 
Bit 7 4 5 4 


1 0 


! Port C (lower) 1-Input,0-flutpwt 
Port F 1-Input,O-OMtput 
Node selection 0-Node 0,1-Node 1 
Port C (upper) 1-Input,O-Output 
Port A l-lnput,0-0utput 
Node selertion 0(H1ode 0,01-flode 1,IX-Node 2 
Node set flag 1-Active 

2. Bit set/reset forest 
Bit 76543 2 10 


! ‘ ! Bit set/reset flag l-Set,0-Reset 

Bit select 000-0 : Hl-7 

Unused 

Bit set/reset flag 0-Active 


CU 


EQU 


1001001 IE 


PIOSIZE EQU 448 


Ridici slovo pro 8255 
PA - vstup dat 2 dekoderu 
PB - nepouzit-nastaven jako vstup 
PCD - /GO signal z dekoderu 
Pa - ENAKE signal do dekoderu 
Velikost bufferu pro PI0 ( aa*. pro 
8 ttx. datovgch radku v pulsaialu ) 
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* Vyhledani a dekodovani radku * 

# * 

HIUUMIIIfllHIHIHtll B Klf f tm f ffT# 

Program vyhleda a dekoduje adresu radku do oblasti ROHADR 
Je-li to radek 00 ( hlavicka ) , provede dekodovani do oblasti IEAD 
pres rutiny : 

SEARCH.Vybledani fraaingova kodu 

SCANjGO .Nacteni dat z teletextu 

DECODE.Nakro,kter* dekoduje Ha«ingovy kody 

Vystup; F(CY)-1 - bylo preruseno cteni 
jinak F(CY)=0 

HI - Adresa prvoiho datoveho bytu ( za zahlavia ) 


Vstup : IINE) 
L1NE0 


LINEO: 


H,BC a PI0P.E nastaveny z predchoziho volani 
- Nacita data do PI08UF a nastavuje HL,EC 


LINEN: 


CALL 

SCWLG0 

Nejprve ausiae nacist data 

RET 

c 

Bylo preruseno cteni-navrat 

LD 

HL.FIOBUF 

Odkud 

IP 

BC.PIOSITE 

VelUost bufferu 

CAil 

SEARCH 

Vyhledej Fraaing v bufferu 

JR 

NZ,LINEO 

Buffer prazdny,nebo falesny radek 

L0 

A, (H) 

Hagazine f ♦ Row address 

DECODE 


Dekoduj Haaainguv kod 

JP 

N.LINEl 

Chi^a - kledej dsle 

LD 

E,A 

IJschovej aezivysledek 

INC 

w. 

HL= adresa Row adMress ( nizsi 4 bity 

U) 

A, (HL) 

Haaaing do ACC 

DECODE 


Zkus ho dekodovat 

JP 

-N.LINEl 

Chyba - hledej dalsi radek 

INC 

HL 

Fosuii ria dalsi zrwt; 

SLA 

A 

Rotuj je do spravne p-szice 

BIT 

3,E 

Test, na lichy radek ( 0-ty bit =1) 

JR 

Z.LINE4 

Je sudy 

INC 

A 

Je lichy 

S.D 

(R0UA0R),A 

Uloz cislo radku 

ID 

D,A 

ifschcvej adresu na chvili 

LB 

A,E 

Vezai cislo aagazinu 

m 

111B 

Oprav ho 





















LD 

(HEAD),A 

Ulfflz cislo aagazinu 

ID 

A,D 

Wat zoet adresu 

OP 

A 

Test na cislo radku ♦ CY=0 

PET 

MI 

“a.t at kdyr :ie.;i radek 00 

LB 

DE,HEADH 

Cilova oblast pro dekodovani 

PUSH 

BC 

Usehovej pocitadlo neprohledanych bytu 

LD 

B,8 

Pocet bytu v zahlavi 

LB 

A,(HL) 

Dekodovany byte 

DECODE 


Ikus ho dek:odovat 

.JP 

H,LINES 

Chyba - oprav zasobnik a hledei dale 

U) 

IDE),A 

Uloz dekodovany byte 

INC 

HL 

Posun oba 

INC 

BE 

ukazatele 

DJNZ 

LINE2 

Dekoduj cele zahlavi 

EX 

f SP),HL 

Vezai pocitadlo 

IB 

BC.-S 

Opraviee o odebrane byty ze zahlavi 

ABB 

HL.BC 

Oprav 

EX 

(SP),HL 

Vratiae zpet adresu 

POP 

BC 

Obnov pocitadlo 

XOR 

A 

CY=0 

RET 


Navrat 

LB 

A, 8 

Budeae pocitat ofset 

as 

B 


LD 

C.A 

; BC=vysledek 

LD 

B.O 


OR 

A 

; CY=0 

EX 

<SP),HL 

; Vezaeae adresu 

SBC 

m.Bc 

; Opravise pocitadlo o data 

EX 

(SP),HL 

; Vratiae zpet 

POP 

BC 

; Oprav zasobnik ( vrat pocitadlo ) 

•JR 

LINEI 

; a hlede.j znovu 


VYHLEDANf RAMCOVEHO K6DU 


NAsledujicf rtitina je pouiivAna pro vyhledAnf za&Atku tele- 
textovych fAdku. ZaCAtek rAdku je ktentifikovAn pritomnosti 
rArncovAho k6du (framing code). Jestliie nAsleduji dva tyto 
k6dy za sebou, povaiuje se za platny druhy vyskyt. 

;l * 

;* Vghledavani Fraeingova kodu * 

• » t 

; Progra# vyhledava fraainguv kod od adresy (HL) v deice (BC) 

j a testuje preteceru i mirmltf,-- vyhledavaai. 


; Vystup: 

... Nasel frying HL 

addr (Ff j*i ng+t-- 

SEARCH: 

BIT 

7,8 

; Test na preteceni rozsahu 

RET 

NZ 

; Freeing nenalezen-pretekl 

LB 

A.FRAHING 

; Co bledaae 

CPIR 


; Hledej 

PET 

NZ 

; Navrat - nenasel 

C? 

( HL) 

j Test na 2* fraair.g za -:ebo 

JR 

Z.SEARCHl 

; Jsou 2 fraaingy 

XOR 

A 

1 7=5 

RET 


; Navrat Z 

SEARCHkINC 

HL 

; Preskoc prvni fraaing 

DEC 

BC 

; Oprav pocitadlo 

XOR 

A 

; Z-I 

PET 


; Navrat Z 


PftEKdDOVACf TURBO TABULKA 


CekAnI NA GO A TEST klAvesnice 


DAle uvedenA tabulka umoiftuje velmi rychIA dekAdovAnf 
a vyhodnoceni (pripadnA opravenf) Hammingova k6du (va- 
rianta A, viz ..TELETEXT — popis systemu ..Tuto tabul- 
ku vyuiivA makro DECODE volant v LINEO a v LiNEI. 


NAsledujicf rutina testuje stav klAvesnice a adaptAru. Pfi 

_pripravenosti adaptAru pro pfedAnf dat provede pfesunuti 

dat z vyrovnAvacf pam&ti adaptAru do oblasti PIOBUF. Ta 
slouif jako pracovnf oblast p r o dekAd ovAnl. Pfi pfenosu dat 
je vyuifvAno signAlu CS PIO a RD PIO k pflmAmu inkremen- 
tovAni Aitafce pro adresovAni vyrovnAvacf pamAti v adaptAru. 
To znamenA, ie tuto Ainnost nenS tfeba ovIAdat softwarovA. 

V pfipadA, ie se AekA na pfipravenost adaptAru a je stisk- 
nuta nAkterA klAvesa, je nastavena vlajka indikujicf uiivatel- 
sky vstup (CARRY) a je proveden nAvrat do procedury, kterA 
tuto rutinu volala (LINEI nebo LINEO). 


HiHimiimiiiiiiWHHiiiiimimi 
i * 

* Cekard na GO a test klavesnice * 

* * 
WIHHHHimillHIHHIHHHiHim 

Tento podprograa ceka na ukonceni nejblizsiho signal# GO 
a testuje klavesnici na stisk tlacitka ( preruseni hledani ). 
Po prichodu signalu nacte data z vyrovnavaci paaeti dekoderu 
na adresu PIOBUF pr o dal si zpracovani. 

Vystap: F <CY)=1 - bylo prer-useno 


SCflIUM: 


CALL 

CONST 

Get console status 

OR 

A 

Nastav vlajku Z/NZ 

SCF 


Pripadne vlajku INTERRUPT 

RET 

NZ 

Byla stisknuta klavesa 

IN 

A.IPTOO 

Itacti status (X) siyalu 

(HD 

l 

Maskuj pouze tento bit 

JR 

NZ, SCANJ30 

®) jeste neprislo 

IN 

A, (PIOC) 

Test na jeste trvani GO 

(W 

1 

Naskuj GO bit 

JR 

Z,GttJSCAK 

GO jeste trva 

IJ 

A.ENABU 

Pcvoline vycitani dat z dekoderu 

OUT 

(cm>,A 

pres PC7 

I.B 

HL.PIOBUF 

Kaa budeae ukladat data 

LD 

BC.PrOA 

0dk>id budeae brat + pocitadlo 

INIR 


Nacteae prvnich 256 bytu 

LD 

INIR 

BC,256*(PI0SIZE-256)+PI0A; Nacteae zbutek dat 

LD 

A,ENAB10 

Zakazeae vycitani dat z dekoderu 

OUT 

(CTRL),A 

pres PC7 

XOR 

RET 

ft 

Nuluj CY flag 


; MmiHIIHIHHHHmHHIHHHIHII 

;* * 

;* FVefcedovaci TtPBO tabulka * 

;» * 

; Tabulka pro TURBO dekodc-vsni 
; (t) 1938 Pavel BRYCHTA 


.RADIX 

16 

DB 

OFF.OOC, 001 ,OFF,OOA,OFF,OFF,OG9 

OB 

OOA,OFF,OFF,OOB,OOA,OOA,OOA,flFF 

DB 

008,OFF,OFF,00B,OFF,000,00D,OFF 

DB 

OF,')OB,OCB,OOB,OOA,OFF,OFF,OOB 

DF 

OOC f OOC,OFF,OOC,OFF,OOC,OOD,OFF 

DB 

OFF.OOC,OOF,OFF,00A,OFF,OFF,007 

DB 

OFF,OOC,OOD,OFF,OOD,OFF,(Xffi,OOD 

DB , 

OO6,OFF,OFF,OOB,OFF,OOE f O0D,CFF 

DF 

008, OFF,OFF,009,OFF,009,009,009 

DB 

OFF,002,OOF,OFF,OOA,OFF,OFF,009 

db 

008,008,008,OFF,008,OFF,OFF,009 

db 

008, OFF,OFF,00B,OFF, OOE,003,OFF 

DB 

OFF.OOC,OOF, OFF,004,OFF,OFF,009 

DB 

00F, OFF,OOF,OOF,OFF,OOE,OOF,OFF 

DB 

008,OFF,OFF,005,OFF,OOE,00D,OFF 

DB 

OFF,OOE, OOF,OFF,OOE,OOE,OFF,OOE 

TABLE: DB 

001,OFF,001,001,OFF,000,001,OFF 

DB 

OFF, 002,001,OFF.OM,OFF,OFF,007 

DB 

OFF, 000,001, OFF,000,000, OFF, 000 

DB 

006, OFF, OFF, 00B, OFF,000,003, OFF 

DB 

^T,00C, 001, OFF, 004,OFF,OFF, 007 

DB 

006,OFF,OFF,007,OFF,007,007,007 

DB 

006, OFF, OFF,005, OFF,000,000, OFF 

DB 

006,006,006,OFF,006,OFF, OFF, 007 

DB 

OFF,002,001,OFF,004,OFF,OFF,009 

DB 

002,002, OFF, 002,OFF,002,003,OFF 

DB 

008, OFF,OFF,005,OFF,000,003,OFF 

DB 

OFF,002,003, OFF,003, OFF,003,003 

DB 

904,OFF,OFF,005,004,004,004,OFF 

DB 

OFF,002,OOF,OFF,004,OFF,OFF,007 

ns 

OFF,005,005,005,004,OFF,OFF,005 

DB 

006,OFF, OFF,005,OFF,OOE,003,OFF 

.RADIX 

OAH 
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Popis ovlddani 


Po zavedenl programu z kazety (di- 
skety) se zobrazi titulni strana a hlavnl 
menu. Menu obsahuje tyto tfi z&kladnl 
varianty: 


Setup Print Help 

JednotlivC varianty se voli ktevesou od- 
povfdajlcl zvyrazndnCmu plsmenu. 

Setup — umoirtuje nastavenl zpusobu 
vyslleini rldiclch znakO na tisk£rnu ve 
formC CR nebo CR+LF a ndsledujlcl 
zpusoby kopie obrazovkv: 

Normal — normetlnl kopie — obsahu¬ 
je pouze platnC ASCII znaky, grafika 
se zobrazi pomocl odpovldajlclch 
ASCII znakO, znaky ndrodnlch variant 
jsou zobrazeny bez diakritickych 
znamCnek. 

Shaded — stlnovan£ grafick£ kopie 
— vyuilv£ moinostl tisk^ren standar- 
du IBM a Epson. 


Print — provede vytiStCnl naCtenC 
str£nky podle podmlnek, nastave- 
nych v pfedchozlm bod§. 

Help — zobrazi seznam plsmendvych 
prlkazu pro standardnl ovl£d£nf. 
Jsou to tyto pflkazy: 

0—S — page # — volba strdnky — pro¬ 
vede se zadctnlm tflcifernCho Clsla, 
po kterCm nSsleduje <CR>. 

A — again — znovu se provede naCtenl 
zvolenC strany. 

C — clock — po predchozl pflmC volbO 
podstrany se zobrazi potlaCeny re&l- 
ny Cas. 

D — double — horn! a dolnl polovina 
naCtenC str£nky se postupnC zobrazi 
v dvojn£sobn6 vySce. RotovAnl se 
proved! libovolnou kldvesou. 

E — exit — n£vrat do operaCnlho sy- 
stCmu mikropodltaCe. 

H— hold — podrienl rotujlcl podstr&n- 
ky a i do daISlho stisku libovoInC 
ktevesy. Funkce je indikov&na pis- 
menem ,H‘ v Iev6m hornlm rohu 
obrazu. 

I— index — automatic^ volba indexo- 
v£ str^nky (str£nka 100, pflpadnC 
str&nka nastaveni pomocl paketu 
27). 


M — menu —■ zobrazi se menu. 

R — reveal — zobrazi se znaky, kterC 
jsou pfi naCtenl strimky skryty. 

T — time code — pflm& volba pod- 
str^nky — umoiftuje zadat Ctyrcifer- 
n6 Clslo podstr£nky. Po zad&nl Clsla 
str£nky stiskneme ,T‘ (na mlstC re4l- 
nCho Casu se zobrazi TimeOOOO), za- 
dame Cislo podstrSnky a stiskneme 
<CR>. 

<SP> — fast search — volba sdru2e- 
nych str^nek. V pflpadC, te se pre- 
n&§! adresy tzv. sdruienych str£nek, 
kter6 jsou urCeny k automatickCmu 
ukl£deinl do pamCti dekodCru, je je- 
jich pfltomnost indikov£na znakem 
t >‘ v levCm hornlm rohu obrazu. Pak 
je moinC pomocl kldivesy <SP> vyvo- 
lat zobrazenl doplhkovCho 25. f£dku, 
pfen£§ejlclho pfehled sdruien^ch 
strdnek. Volba sdruienC str£nky se 
provede stisknutlm odpovldajlcl 
ktevesy ,1‘ a 1 ,4‘. Ktevesy jsou prifa- 
zeny barevnym skupin&m n&sledu- 
jlclm zpusobem: . 
kl&vesa ,1‘ „Cerven6“ 
ki&vesa ,2‘ „zelen&“ 
kl&vesa ,3‘ „ilut6‘‘ 
kl^vesa ,4‘ „modrozelen£“ 


-— - —-- ~\ 

Publikovat cely vypis programu pro pfijem teletextu nebylo vzhledem k jeho rozsahu reding. 
Proto jsme zaHdili v r&mci projektu MIKROBAZE, aby nahrdvku programu na kazetg doddva- 
la 602. ZO Svazarmu v Praze. Zatim jsou k dispozici programy pro poiitaie ZX-Spectrum, 
SORD M5, Sharp MZ800, pfipravuji se dalSi v£etn§ IBM-PC. O program pro svuj podltaC si 
tedy napiSte na adresu: 602. ZO Svazarmu, ul. dr. Z. Wintra 8,160 00 Praha 6. 

_ _ _ ) 


Dlouhy spanek Gajany 

Carola Biedermannovd 


Za jasnych nod blikd na obloze male hvdzdicka. Ze Zemd 
nenf viddt, Ze kolem nf krouZf tfi planety. DvS jsou mrtve. 
Hromady kamen!, mrazive pustiny. Tretf je Ziv£. Jmenuje se 
Gajana. 

Podnebl Gajany je tepie a krom£ oblasti tropickych 
deSfovych pralesu suche. Rena jsou chladne a sv§Zt, 
poledne horke do umoru a vedery dlouhe, vlahe, sou- 
mradne. Je to mfrne planeta. Cas plyne tiSe a neme velky 
vyznam. 

Na Zemi vesele skotadili brontosaurovd a jind tdZkotoneZnf 
potvory, kterd byly pozddji odkezdny do ffSe pohddek, aby 
jeStd pozddji byly s Octou a pietne objevovdny jejich kosti. 

Na Gajand slezl podnikavy opiddk nebo zvffe opici 
podobnd ze stromu a postavil se na zadni kondetiny, aby se 
podfval do deiky nad vysokou trevou gajanskd stepi. V trdvd 
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uviddl pasoucl se zvffe podobnd kreifkovi. Napadlo ho vzft 
do ruky klacek a kreifka praStit. Kreifk padl s roztffStdnou 
lebkou. 

Opieek si dfepl vedte kreiidl mrtvolky a tupd na ni ziral. 
Pfitom mimoddk olfzl klacek se zbytky kreiidho mozku. 
Chutnal podobnd jako stromovf 6ervi, kterymi se Zivil. 

Na planetd Zemi slezl prvnf podnikavy opidek ze stromu 
v dobd, kdy tide na Gajand podnikali pokusy s chovem zvffat 
a pdstovenfm rostlin. KdyZ si na planetd Zemi lidd vzdjemnd 
kradli nasbirand rostiiny a ochodend zvffata, na Gajand jiZ 
steia bfie mdsta. Vysokd Zeny s tehee namodralou pletf 
a korunou zlatych vlasO a muZi, do pasu nazf a v dlouhych 
bllych suknfch prochdzeli stinnymi podloubfmi ulic kolem 
plnd automatizovanych obchodu a pracovali v nekonednd 
bdlostnych klimatizovanych sdlech a chodbdch podftadu. Za 
nocf hleddli ke hvdzddm. 

Podnebf Gajany je suchd a tepid, dddf nezavfrd lidiv jejich 
pffbytcfch. Lidd nezapomndli na Sirokd stepi, ze kterych 
pfiSli. Ve volnych dnech odchdzeli do malych domku ve 
stepi, aby Zili blfZ pffrodd. Pdstovali ovoce a zeleninu, Zili bez 




jldel, kterd se sama uvafl a bez vozidel, kterd se sama h'df. 
Voinich dnu pfibyvalo, poditade ve mdstech byly dim ddl tfm 
schopndjdl a samostatndjdl. Lidd Gajany se postupnd vraceli 
do svych stepl. Poditade pro nd vytvofily rozvdikovou 
, sluibu. Ale zdsobovacl vozy se vracely plnd, lidd si pdstovali 
potraviny vlastnfma rukama a tkali Idtky na primitivnlch 
stavech. Nechtdli ui trdpit ddti dkolou, vzddldnlm, praci. 
Mysleli to dobfe, kdyi jim chtdli dopfdt svobodu. Tehdy. 

Podnebl Gajany je tepid, sucbd a mlrnd. Jitra jsou tichd 
a osvdiujlcl. Lid Gajany neznal vdldenl, obllbenou zdbavu lidf 
na Zemi. Stddnl pud u ndj zanikal. Ve stepfch bylo mfsta 
dost. 

Blld mdsta Gajany osifela. 

Poditade postupnd rudily vyrobu vdcl, kterd nikdo nepotfe- 
boval. Automaty a roboty udrzovaly opudtdnd mdsta nebo 
dekaly, pedlivd nakonzervovdny, ve skladidtlch. Nablyskand 
vozidla stdla v gardilch, obchody byly prdzdnd, jen stepnl 
vltr se prohdndl podloublmi. V dlouhych chodbdch podltado- 
vych center blikala svdtdlka a svftily obrazovky. Poditade 
dekaly na mule v dlouhych suknich se zlatymi vlasy 
k ramenum, na dlvky v bflych flzdch, protote, jak pravil jejich 
program a jejich zkuSenost, jen tym dtovdka s podltadem 
ddvd fungujfcl celek. Lidd vSak odedli. Opustili i svd domky, 
kterd stejnd ui neumdli pofddnd udrtovat, a iili v dfevdnych 
srubech nebo zahloubenych polozemniclch. 

Na Zemi lidd pomalu kondili s toulavym pasteveckym 
zpOsobem iivota a zvykali si ift v trvalejdfch sldlidtfch. Bude 
trvat jedtd dlouho, nez bude postaveno mdsto u Catal 
HUyuk, nei se zrodl na ostrovech prvnf fide, po kterd 
zustanou jen bdje o Lemurii, zemi Mu di Atlantidd. 

Poditade na Gajand iily bez lidf. Mdly spoustu dasu. 
Vyuiily ho na zdokonalenl, zlskaly prvnf zdblesky sku- 
tedndho vddoml. Bylo to vddoml osamdlosti. 

O udribu podltadu se staraly roboty, slunce Gajany 
doddvalo do slunednlch baterii neomezend mnoistvf ener- 
gie. Ale prichdzel stesk. Lidd zapomlnali na poditade a na 
blld mdsta, ze kterych odedli do dirych stepl za svobodou. 
Mdsta se v jejich vyprdvdni stdvala podivnym pfetechnizova- 
nym peklem. Po lidech zustaly linky telefonu, stanice 
bezdrdtovdho spojenl. Poditade je mdly na dosah. A tak se 
propojily do jednoho planetdrnlho systdmu. S naddjl, ie 
pfemohou samotu. Vznikl velky podltad Gajany. 

Na Gajand znamend das mdlo a pro podltad jedtd mdnd. 
— Jen samota odkapdvd v drobnych krupdjich a mdfl dobu 
dekdnf. Velkd kalut samoty znamend stesk. Z kaluil vznikajl 
potudky, jezfrka... Podltad Gajany se odhodlal k dinu. 
Postal za lidmi roboty, aby je pfivedly zpdtky, kdyi blld 
mdsta dekajl a podltad je stdle pfipraven jim slouiit. 

Lidd Gajany jii zapomndli umdnf prdce s kovy. Tdhli se 
svymi stddy od pastviny k pastvind, bydleli ve stanech 
z pdchnoucfch zvlfeclch koil, pojldali napul syrovd maso 
a divokd rostliny. Veder se u tdborovch ohnO vyprdvdly 
povdsti o blldm pekle mdst. Neduvdfivd, se strachem hleddli 
lidd na roboty, kterd jim neubliiovaly a ndco ffkaly. Jistd to 
byli ddmoni pekla. 

Bed lidf se zmdnila. Bylo v nf mdlo slov a zndla jinak, nei 
bylo uloieno v pamdti velkdho poditade. Podltad mdl v td 
dobd bohatdl slovnfk nei nejchytfejdf z lidf. Moind, ie lidd na 
Gajand se chvfli pokoudeli pochoplt, co od nich ty leskld 
krabice chtdjl, nei je poslali pryd nevyblravymi slovy. Nemdli 
ostatnd z deho vyblrat a mdli spoustu jinych starostl. Hodnd 
se jich rodilo, jedtd vice umlralo, pofdd fddily ndjakd nemoci, 
bolely je zuby, pokud ndjakd mdli, dobytek se pladil 
a mouchy otravovaly. 

Velky podltad Gajany usoudil vcelku sprdvnd, ie lidd se 
nevrdtf, ie zustal sdm. Hledal fedenl. 

Pfestal udriovat zbytednd mdsta, ta se po dase zhroutifa 
v hromady sutin a z tdch pomalu vznikal pfsek. Zustala jen 
podltadovd centra, sfunednl baterie, vyroba obsluinych 
robotu a hvdzddrny. 

Na Gajand das mnoho neznamend a pro podltad jedtd 
mdnd. Podltad hleddl k hvdzdnd obloze. Podftal, pfemydlel, 
moind i snil. Byl pdnem planety a myslel na hvdzdy. 

I na Zemi lidd hleddli ke hvdzddm, ddvali jim jmdna svych 
bohu, ddvali jmdna souhvdzdlm. Jedno dostalo jmdno 
Pastyf. 

Stepnl vltr rozfoukal po Gajand plsek, ktery zbyl z bllych 
mdst. Pfibyvalo plsednych boufl, ve kterych hynuli lidd 
i zvffata. Stepi vysychaly pod vrstvou vdpenatdho plsku, 
mdnily se v poudtd. Lidd se pfestdhovali do jeskynf a iivili se 
lovem drobnd zvdfe. Usidlovali se na okrajlch pralesu, kterd 
poudt nemdhla pohltit, nemdla na to dost sfly. 

Jeden podnikavy mui, drobny a obratny, vylezl na strom. 
ObjevH hnfzdo stromo\rych dervQ, ochutnal a ejhle, podobalo 
se to chuti vzdcndho krdlidfho mozedku. Navfc nadel ndkolik 
ftivokych pfodu, prostd mdl Sfastny den . Po dlouhd dobd se 
dosyta najedl. 


Lidd z Gajany se zadali stdhovat do pratesd. Postavili si 
hnlzda z vdtvl a bydleli na stromech. Prales se dodkal. 

Podltad vyrobil sdrii hlldkovaclch zaffzenl, tovdrna na 
vyrobu obsluinych robotu to hladce zvlddla a poudtd Gajany 
byly idedlnlm letidtdm. Zaffzenl byla prakticky nezniditelnd, 
v nemdnndm kosmickdm vzduchoprdzdnu mohla dekat 
neomezenou dobu. Vypodital vhodnd mlsta — mdl 
k dispozici hvdzddrny celd Gajany — a rozeslal svd hlldky do 
vesmfru. 

Lidd Gajany nemohli ze svych lesnfch skrySl zahlddnout 
svdtdlka, ztrdcejlcl se mezi hvdzdami. Velky podltadr Gajany 
se ponofil do dlouhdho dekdnf. Moind i snil. A zatfm poudt 
zakryla posledni zbytky civilizace, poudt se srdcem z kovu 
a polovodidu, kterou daleko od sebe probleskovaly povrchy 
slunednlch baterii... 

Na Zemi Atlantis skondila v rozboufenych iivlech. Harrapa 
a Mohendioro prodly dasem, sumerskd paldce pokryl prach 
a hllna. Jako brontosaufi, i fide Chetitu byla vykdzdna do 
povdsti, aby po dlouhdm dase byla archeology pietnd 
odkryta. Egyptand postavili svd pyramidy, pro kterd das 
mnoho neznamend. Krdfand oviddali mofe a jako sport 
pdstovali skok pfes byka, dddictvl bezejmenndho mdsta od 
Catal HUyuk. ftekovd postavili svd blld chrdmy, kterd dasem 
Turci opdt zbofl, a tesali sochy, kterd zustanou mdfftkem 
krdsy v dobd, kdy jedna ze sond Gajany zadne plnit svuj 
program. 

V dedtovych praleslch Gajany potomci lidl sestupovali na 
zem jen zfldka. V tom pflpadd se pohybovali po dtyfech 
chdpavych kondetindch. Jednomu druhu se vyvinul chdpavy 
ohon, coi se pro iivot na stromech bezesporu hodilo. Ddsili 
se otevfendho prostoru, za kterym odedli ze svych mdst 
a ktery se stal poudtl. Vzpomlnka na ddvnou civilizaci v nich 
vyhasla. Jejich slovnfk se sklddal z posunku, skfekQ, 
kdourdnl a odichdvdnl. 

Na Zemi zadala a skondila doba kfestanskdho temna. 
Udenl mnichovd Campanella, Bruno a Kepler a po nich udenl 
laikovd Galileo a Herschel obraceli zrak lidstva ke hvdzddm, 
coi nebyto prdvd snadnd. Lidstvo se raddji bavilo vdldenlm 
a jinymi zmatky. Byl vynalezen parnl stroj, objevena 
elektfina, pracoval Edison a Marconi. Byl objeven bezdrdto- 
vy pfenos zprdv. Vesmlrny posel zadal plnit program. 

V roce 1927 podle pozemskdho podltdnl dasu byl jli 
v dteru sludny provoz. Sonda vysllala na Gajanu vdechno, co 
zachytila, ostatnl bylo starostl velkdho poditade. Urditd s tfm 
mdl starostl dost. Sonda zatlm plnila svQj druhy ukol. 

Potomci lidf Gajany obrostli ziatou srstf a vesele skdkali 
z vdtve na vdtev, anii by pocftili nespokojenost se svym 
osudem, kdyi Taylor a Young zaznamenali zpoiddnf odrazu 
radiovych signdlu. V roce 1928 se totdi povedlo Halsovi 
a Strbmerovi, jev podrobnd prozkoumal Van der Pol, ktery 
zjistil zpoiddnf ozvdn od tfl do patndcti sekund a pozmdndnd 
trvdnf ndkterych signdlu, zatfmco frekvence vidy souhlasila. 

Jenie lidstvo mdlo jind starosti. 

V roce I960 oiivil probldm zpoiddndhd odrazu Bracewell 
v dasopisu Nature. V roce 1965 si J. Strong uvddomil, ie 
mfsto odrazu je soudasnd jednfm z liberadnfch — rovno- 
vdinych bodu soustavy Zemd — Mdsfc a tedy nejlogidtdjSfm 
mlstem napflklad pro umfstdnf meziplanetdmf sondy. V roce 
1973 napadlo Lunana pfendst dfselnou fadu zpoiddnych 
ozvdn do grafu. Pfed jeho mlrnd udivenym zrakem se 
objevila mapa souhvdzdl Pasty fe, jak by se jevila pfi pohledu 
ze Zemd pfed tfindcti tisfci Idty. 

Jenie souhvdzdl Pasty fe je pro lldi Zemd trochu z ruky 
a lidd majl spoustu jinych starostl a mdlo dasu. Na Zemi das 
znamend hodnd. 

V roce 2020 lidd opdt jednou vesele vdldili, prp zmdnu 
o kousek uzemf planety Mars, kterd v podstatd k nidemu 
nebylo. Znechuceny pilot bojovd kosmickd lodi se vracel na 
zdkladnu. Sarvdtka se protdhla, zmedkal rande s bezvadnou 
kodkou, byl unaveny, dostal vynaddno a zaraiend vychdzky. 
Vztekle stfllel po vdem, co mu pfidlo na muSku. Pokaidd 
trefU. 

Ze zasaiendho meteoru vySlehl prudky zdblesk, jehoi 
smdr pilot nezaznamenal. Fuj, to jsem se lekl, bylo vdechno, 
co ho napadlo. 

V poudtfch Gajany das nic neznamend, poudt nemdnl svou 
zlatuilutou tvdf. V tropickych dedtovych praleslch svobodnd 
skotadf ndkolik opic. V plsku poudtl obdas probleskne 
povrch slunednf baterie . Skryt pod pfskem snf podltad svd 
sny. 

V soustavd dvou idles, napflklad Zemd — Mdslc, je pdt 
libradnfch bodu. 
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iHO DISKU 


Ing- Ales JUftfK, FE VUT, Botetdchova 2 , 612 00 Brno 

V sou&asite dob£ je jiz zitemo itekdik uprav mUcropodfta£u ZX Spectrum pro pr£ci pod operadnim sysMmem 
CP/M. Tento 6Ubiek je v&novdn nejen tem, ktefi si postavili mikropo£fta£ kompatibilni se ZX Spectrum podle [1], 
ale take tftm, ktefi chteji pro waw at na stem osm ib i twto mi kr o podit adi o per afcn i system CP/M, Mery je 
v soudasrtem po6fta6otem stete bezesporu nqn»i9en§pn operadnim sy s teme m, orientovany m na osmibitote 
mikr op odit a de. 

Vzhtedem k tomu, ie existuje jii itekotik verzi tohoto operaCniho systemu, je navrhovaite verze upravena tak, aby 
pod syste m e m mo ldy pracova1v&eclinyp ro g r a my ,do6tupteytuzen»kuiv z a iirattei, pouiivaiicidflgtetlitemodulu 
BIOS. MflenSi probtemy vyttefi pouze vystup na obrazovku (konzotu), protoie u mlkropo£fta£e ZX Spectrum 
nelze dotehnout titeliteho zobrazeni vice nei 64 znafcQ na ittdek (nikoli standardmch 80). Zato zde Use poutit 
speciklni grafick^ funkce, ktete je moino impiementovat do moduiu BIOS a pfi psanf vlastnich program^ vyuiivat 
graficky vystup na obrazovku. Tento zpusob byl vyzkouSen itekolika programy a poskytuje rozmanite moinosti pfi 
tvortte programu pod operadnim systemem CP/M. 


Obecny popis systemu CP/M nebu- 
de v tomto CI4nku uveden, zAjemce 
najde podrobne informace v [2] a [3]. 
Krome toho je tento operaCnf system 
dostateCnS zn4m, takie budou 
uv4d£ny jen znteny proti standardnimu 
provedeni. Ctenek nelze br4t jako uce- 
leny stavebni n£vod, i kdyi pro majitele 
poCitaCe podle [1] na n£j tak Ize 
pohliiet. Je z rtej moino derpat inspira-, 
ci pro dal§( z&jemce o operaCni system 
CP/M, zdlohovany ramdisk nebo radiC 
floppydisku v6etn6 kan4lu DMA. 2tero- 
veft je moin& aplikace pouze nSkterych 
(test! tohoto dtenku (tzn. CP/M jen 
s ramdiskem a kazetovym magnetofo- 
nem nebo CP/M jen s jednou nebo vice 
disketoyymi jednotkami). 

1. POPIS obvodovEho 
ReSenI 

Obvodov6 feSeni vycttezi z faktu, 2e 
opera&nl system CP/M potfebuje pro 
svou instalaci pantefovy prostor z pa¬ 
nteti RWM pfes cely z4kladni adresovy 
prostor mikropoCitaCe, tj. 64 kB. Ndkdy 
se utedi, ie BIOS mOie byt v panteti 
BOM. Z hlediska kompatibility s ruz- 
nymi moduly BDOS, z nichi v6t§ina 
vyzaduje v oblasti BIOSu od adresy 
0FB00H dolu nSkolik desitek bajtu 
volnOho prostoru pro Zetsobnik, je 
vhodne, aby cely pantefovy prostor byl 
realizov4n z panteti RWM. Pro majitele 
mikropoditade podle [1] je tento poia- 
davek splndn ovteddnim vnitfnl panrteti 
sign4lem SPIN a prekrytim dolnich 
32 kB odpovfdajicf 54sti pamSti „puj6o- 
van6“ z ramdisku. Pro majitele Spectra 
s 80 kB vnitfni pamSti RWM je nutno 
pouze pfizpOsobit pfepinAni teto pa¬ 
nrteti sign4lem SPIN tak, aby pfi aktivni 
urovni tohoto sign4lu byla pame? ROM 
a pantef video pfekryta pam§ti RWM. 
Majitete neupraven6ho Spectra mohou 
ovtedat pomoci tohoto sigrtelu pfidav- 
nou pfepinaci logiku tak, aby pfi aktivni 
tirovni signdlu SPINobvod ULA ntel na 
vstupech ABM a AB15 urovnS logickd 
nuly a z4roveft vyblokovat vnitfnT pa¬ 
ntef ROM pfivedenim logickd jedniCky 
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na vstup CSROMGEN. To Ize jednodu- 
Se zajistit pferusenim pffslu§nych adre- 
sovych vodiCu u vstupu obvodu ULA 
a pfiddnim jednoho obvodu napf. typu 
74LS08. 

1.1 Popis obvodu ramdisku 

Ndvrh obvodu ramdisku vychdzi 
z pfedpokladu, ie s panrteti ramdisku 
se bude komunikovat jako se strdnko- 
vou systemovou panteti, nikoli pfes 
port instrukcemi vstupu a vystupu. 
Velikost strdnky byla pro co nejjedno- 
du§Si obvodovd fedeni zvoiena 32 kB. 
Pro ,,puj£ov£ni“ system u (pfekryti 
ROM a video RAM) byla zvoiena str&n- 
ka 6. 0 (z hlediska obvodovd jednodu- 
chosti Ize stejnS pouiit i strdnku 
s adresou nejvySSi, ale navrhovany 
ramdisk muie mft i men Si parrtefovou 
kapacitu). 

Obvodovd reSeni ramdisku je na obtez- 
cich 1 at 4. UmozAuje nStsledujici 
funkce: 

1) pfi komunikaci s ramdiskem je 
pfisiu&te tficetidvoukilobajtovd stitenka 
pfipojena do pameroveho prostoru 
mikropoCitaSe od adresy 04000H. 

2) pokud se poiaduje pfipnuti sy- 
stemovd panteti RWM do ceteho adre- 
sov6ho prostoru mikroprocesoru, pfi- 
pne se od adresy 00000H nulte str4nka 
ramdisku. Protoie pfi pouiiti ope- 
rafiniho systemu CP/M neni moirte 
pouiivat tutc sttenku jako souddst 
ramdisku a systemovd panteti zdroveh, 
|e programov§ v BIOSu zabiokov^no 
jeji pouiiti v ramdisku. 

3) pfi aktivad funkce BOOT (zavede- 
nf systemu a jeho studeny start) je do 
spodnf 6&sti adresovdho prostoru pfi- 
mapov^na pantef ROM se zav6d$6em 
systemu z diskety a do borni poloviny 
(od adresy 08000H) je pfipojena pantef 
RWM. Po nahr&ni systemu program 
sko&i do BIOSu, ktery odepne pantef 
ROM a uskuteCni studeny start sy¬ 
stemu. V soutasnd dotte zatim modul 
BIOS vyiaduje pfftomnost obsahu pa- 
m6ti ROM Spectra (vyuihte se z ni 
scroll obrazovky, funkce PLOT, DRAW 
a BELL). Zav6dd£ systemu byl doplrten 
do voln6ho prostoru pamfeti ROM. 

Podle tdchto poiadavku dostevdme 
tedy signal odepinajicf vnitfni pantef 
RWM jako soudet tff sign^lu (viz ofar. 1). 


SP1 = RAMDISK + (EXPRAM. A15N) + 
+ CSROM (1) 

ad 1) Funkce obvodu podle tohoto 
bodu je zabezpedena ovteddnim sig- 
n4lu SPIN pomoci signdlu RAMDISK 
(aktivni urovert tohoto sign^lu signal izu- 
je, ie zrovna probih4 komunikace 
s panteti jako s ramdiskem): 

RAMDISK = RAMD . (A14.A15N + 

+ A14N.A15) (2) 

kde signal RAMD je vystup 1013 
(obr. 1) a signdly A14 a A15 jsou 
pf(slu§n6 bity adresote sttemice. Do 
obou polovin 1013 se vytterovym sig- 
n^ilem CS4N (instrukci OUT (4), A) 
zapisuje informace ze £tvrteho 
a pdteho bitu datovd stternice, pfidemi 
aktivni jsou v logidte jedntece. Pomoci 
Ctvrteho bitu se ovi^d^t pfipojeni pri- 
sluSnd str^nky ramdisku a pomoci 
pAteho bitu se ovtedd mapovAni nulte 
strdnky pam6ti ramdisku do prvnich 
tficeti dvou kB pantefoteho prostoru, 
pokud se pouiivd (test pam6fov6 kapa- 
city ramdisku jako mapovand systemo- 
v4 pam6f (viz ad 2)]. Obvod 1012 je 
pouiit jako Ctyfbitovy registr adresy 
str^nky ramdisku. Jeho vystupy jsou 
hradiovdny signAlem RAMDISK, 5im2 
je zabezpeden vytter nulte str&nky, 
pokud neni signal RAMDISK aktivni a je 
komunikovdno s panteti ramdisku. 

ad 2) V okamiiku, kdy je poiadovdna 
komunikace s nultou strdnkou panteti 
ramdisku jako se systemovou pameti, 
je aktivni sign4l EXPRAM (vystup drufte 
poloviny 1013). Ten aktivuje signal 
SPIN, pokud je poiadov4n pfistup do 
spodni poloviny systemovd panrteti 
(v rovnici (1) je to vyjddfeno druhym 
sCftancem]. Vystupy registru stitenky 
jsou blokov4ny pouze pfi aktivnim 
sigrtelu RAMDISK. V pfipacte, ie jsou 
aktivov4ny oba signify, je obsazeni 
panteti n£sledujici: 

OOOOOH ai 03FFFH — spodni polovina 
nulte stitenky ramdisku jako systemovd 
pamfef, " 

04000H ai OBFFFH — aktu4Jni adreso- 
varte str4nka ramdisku, 

OCOOOH ai OFFFFH — vnitfni systemo- 
v4 pantef mikropoditaCe. 
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Je vidfit, 2e aktivace ramdisku 
prioritu. cot je nutrte kvuli jednoducite 
komunikaci s ramdiskem. Pflpfrteni 
strdnky ramdisku doprostfed adreso- 
v6ho prostoru mikropo£fta£e byto zvo- 
ieno proto, aby se zachovala dostup- 
nost po£6tku panrteti, kde jsou umfs- 
tdny odskoky a pracovni prostor ope- 
radniho systemu, a konce panrteti, kde 
je umist&n system. 

ad 3) Pokud si vytvoNme BIOS tak, te 
nebude tfeba spoiuprdce s panrteti 
ROM Spectra, nebo tak, ie v n6m bude 
obsalen zavdd££, ktery do pam&ti 
zavede obsah pairteti ROM Spectra, 
mQieme pouifvat zav&d&nf system u 
z diskety zav£d6£em v parrteti EPROM. 
Zav£ddnf systemu je inicializovdno pfl- 
pojenim signAlu SBOOTN na uroveft 
log. 0. Tfmto sign6lem se nastavf kiopny 
obvod 1015 (obr. 1) a vygeneruje signal 
RESETN. Do spodni pdoviny pamlfo- 
v6ho prostoru se pfipojuje parrtef 
EPROM (obr. 2) a v horn! poloving 
panteti mikroprocesor spoiupracuje 
s horn! polovinou vnitfnf systemov6 
parrteti mikropodftafce. Pozor! Pfl vyuii- 
v&nf teto funkce je nutno zajistit ode- 


pnutf panrteti PROM s p&skovym za- 
vdd$£em, nejtepe pomocf dvojiteho 
ttatttka, jehoi jedna pdovina bude 
nastavovat 1015 (obr. 1) a drub* 
polovina bude nulovat kiopny obvod 
102 (obr. 1 v (1J), napftkiad nulov&nim 
sign&lu CSRESN (obvod 3205 bez 
potBM vydrii na jednom vystupu kr6tko- 
doby zkrat) nebo kr&tkodobym pfipoje- 
n(m log. 1 na hodinovy vstup tohoto 
obvodu. 

DalSi obvody na obr. 1 generuji 
sign&iy CASLO a CASHO (vybdrov6 
sigrtely pro jednotlivg osmice dynamic¬ 
kych pamSti) a signdly ovtedajfcf multi- 
plexery adresy dynamickych parrteti. 
Dvojice klopnych obvodu 1014 generu- 
je osmy bit osv62ovac( adresy dyna¬ 
mickych panrteti. 

Na obr. 2 je takd obvod, ktery vytv&rf 
vybSrovy signal pro pantef EPROM 
podle vztahu 

CSROM = A15N . BOOT (3) 

Na obr. 2 je zapojenl muitiplexeru 
adresy dynamics panteti RWM, kterte 
multi plexuji vodiCe adresovd sbSmice 


mikropodftaCe, hradlovarte vystupy re¬ 
gistry adresy str6nky ramdisku a osmy 
bit osteiovacf adresy cfynamickd pa¬ 
nrteti RWM. Integra&nf 5ten RC zpoitfu- 
je sestuprte hrarty signAki CASN a tim 
zpoJcfuje otevfenf vystupnich datovych 
budiCu dynamickych panteti. Jeho 
pouiiti bylo vynuceno relatives poma- 
lou reakcl obvodu 3212 (1036 na 
obr. 3 v [1]) na konec vyb£rov6ho sig- 
naiu. Doch^zelo ke kolizi na datovte 
stternici mikropcteftate a tfm i k havArii 
ceteho systemu (programote). D4le je 
na obr. 2 pantef EPROM s disketovym 
zavddddm programem. Je nazna&eno 
pouiitf panteti typu 2716 s kapacitou 
2 kB, ate je moino pouift beze znteny 
zapojenf pantef s kapacitou at 32 kB 
(tj. bu<f typ 27256 nebo odpovfdajfcf 
kapacitu sestavit z panteti o kapacitfe 
menSO- V tomto pffpadS by bylo moino 
ceiy system vCetite panteti ROM Spec¬ 
tra „natahovat“ blokovymi pfenosy 
z teto panrteti EPROM. 
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Obr. 4. Z&tohov&nl pam$ti 


Na obr. 3 je zapojenf dynamickych 
pamfeti RWM (celkem dvrt osmice 
obvodu 41256 nebo ekvivalentnfch), 
d&vajfcf celkovou kapacitu 512 kB. 

~Msou zde tak§ rezistory, kteri oddrtlujf 
vystupy osvrtiovacfho Cftarte (820R) 
a multiplexeru adresy dynamicki pa- 
mSti RWM (47R). Tuto pamrtf Ize 
sestavit i z obvodu s menSi pamfetl, 
popF. jen z jedni osmice obvodu, je 
vSak nutno patrirtnrt prepofiitat kon- 
stanty ramdisku v tabulce disku 
A v BIOSu a pFfpadnrt upravit i adresaci 
pamrttf na vstupech multiplexeru adres 
dynamicki pamrtti. 

Na obr. 4 jsou obvody logiky z&loho- 
vinf obsahu dynamics pamrtti RWM. 
Z&klad je tvoFen integrovanymi obvody 
— komparitorem napStf 1059, dftartem 
1058 (v provedenf CMOS) a rttverici 
hradet NAND (tak6 v provedenf 
CMOS). 

Pokud je napijecf naprttf nad mezf, 
kdy zadfni pFekliprtt kompar&tor 1059, 
jsou na adresovrt vstupy dynamickych 
pamrtti prividrtny vystupy multiplexeru 
1034—36. V okamiiku dosaienf kom- 
paraCni urovnrt je procesor poi&din 
o pridrtleni sbrtrnic (aktivacf signilu 
BUSRQN) a v okamiiku potvrzenf i£- 
dosti (sign&lem BUSAKN) je pFeklopen 
klopny obvod z hradel NAND 1057 
a odepnuto napctjenf lOI, 34, 35 a 36. 
Timto postupem se spolehlivrt zabrAnf 
n4hodn£mu prepscini obsahu dynamic¬ 
kych pam&tf brthem nabfh&nf a vypfn£nf 
zdroje. Integrovanrt obvody TTL majf 
bez pritomnosti nap£jeciho naprttf vel- 
mi velky vystupnf odpor, takie se 
chovajf jako by byly ve stavu vysok6 
impedance („tfeti stav“). Experimental- 
n§ bylo zjiStrtno, ie toto FeSenf je 
spolehHv§j§f, nei pouiiti obvodu 
s tffstavovymi vystupy, kter6 se pri 
vypfn4nf nap&jecfho naprtti mohou mii- 
kovrt aktivovat a zpusobit neirtdoucf 
zmfenu obsahu nrtkterych pamSfovych 
bun&k. 


V prub&hu z&lohovacfho cyklu jsou 
nap&jeny pouze obvody pamrttf RWM 
a obvody 1057 ai 59. Z jednoho hradla 
1057 je vytvoren multivibrator, ktery mi 
periodu pfi napijecfm naprttf 2,7 V asi 
1 ns. Vystupy CitaCe 1058 jsou nynf 
pfipojeny na adresovi vstupy dynamic¬ 
kych pamrttl, signal RASN je zkricen 
asi na 0,5 ai 1 jis pfi napdtf 2,7 V. Novi 
typy pamiti majf totii podstatni menSf 
odbdr, pokud nejsou aktivoviny. Obvo¬ 
dy zilohovinf byly vyzkouSeny s nrtkoli- 
ka ruznymi typy dynamickych pamitf 
od ruznych vyrobcu — odb&r z nihrad- 
niho zdroje byl mezi 20 a 45 mA pri 
napitf na pouzdru pamrtti 3,0 V. Pfi 
tomto napitf nebyl zjiStin vypadek 
uchovivani inf or mace ani v jednom 
pripadd, kaidi ze zkouSenych osmic 
pamitf byla takto provozovina po dobu 
dvou hodin. 


1.2 Obvody pfipojenf disketovi 
mechaniky 


Obvody pripojenf disketovi mecha¬ 
niky jsou znizorndny na obr. 5 ai 7. Pro 
ovlidinf disketovi mechaniky jsou 
nezbytni nutni obvody na obr. 5 0 6, 
obvody na obr. 7 jsou obvody kanilu 
DMA, kteri jsou vhodni pri vySifch 
prenosovych rychlostech pro ziznam 
na disketu (napFfklad mechaniky 
5 1/4" s kapacitou 1,2 MB — zrtznam 
HD-High Density). Pri pouiitf mechanik 
s polovifini hustotou ziznamu, oznaCo- 
vanych u formitu IBM DD (Double Den¬ 
sity), nenf FadiC kanilu DMA nutny, pfe- 
nos dat je moino providit programo- 
v6. 

Na obr. 5 jsou obvody hodinovi 
ziktadny radiCe floppy diskovi mecha¬ 
niky, separitoru dat a prekompenzace 
zipisu na disketu. Tyto obvody jsou 
navrieny tak, aby data na disketi byla 
ziznamovi kompatibiinf se ziznamem 
formitu IBM System 34 Double Density 


(MFM), pouifvanym v po6fta£fch Fady 
PC-XT. 

Prvnfm Ciinkem hodinovi zikladny 
je krystalem Ffzeny multivibrator 
z invertoru TTL, kmitajfcf na kmito&tu 
16,000 MHz. Klopnym obvodem 1015, 
Sestn&ctkovym 5fta6em 1019 a klop¬ 
nym obvodem 1018 jsou vytviFeny 
hodinovi signify pro rfzeni dfsiicoviho 
fizoviho zivisu, radiCe FD a radiie 
DMA. 

Obvody prekompenzace zipisu dat 
jsou tvoFeny Ctyfbitovym registrem 
1020 a polovinou dvojit&ho CtyFkanilo- 
v6ho multiplexeru 1021. Majf za ukol 
zvyraznit odstup mezer a jedniCek 
nahrivanych dat pro snfienf vlivu ko- 
Ifsinf rychlosti otiCeni diskety v diske- 
tovi mechanice. 

Obvody separitoru dat majf za ukol 
odddlit data od hodin v sign&lu, jdou- 
cfm z diskovi mechaniky. Protoie 
ziznam na disketu je jednostopy, je 
nutno pouift speciilnf k6dovinf, pfi 
kterim je moino zaznamenat do jed¬ 
noho pFenosoviho kaniiu data i hodiny 
zirovert. Vzhledem ke kolfsinf ot&rtek 
disketovrt mechaniky totii nelze zazna- 
menivat bfoky siriovych dat bez za- 
krtdovinf synchroniza&nfho hodino- 
viho kmitoCtu. Obvody separitoru dat 
se ski&dajf z Ffzeniho rtfslicoviho fizo- 
viho zivrtsu (1022, 23, 24) a vtastniho 
separatoru dat, ktery je tvofen klopnym 
obvodem 1018, hradly 1011 a klopnym 
obvodem 1022. Fizovy z&vrts je rfzen 
signilem VCO z Fadide, kterym se 
povoluje zasynchronizovinf fizoviho 
z&vrtsu. Ten se dfky obsahu pamiti 
PROM 1024 zasynchronizuje jii pri 
pFichodu druhiho impulsu a je v tomto 
stavu udriovin, pokud je sign&l VCO 
aktivnf. Vystupem jsou dva signily 
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Obr. 5. Hodiny, separator a prekompenzace zApisu 


— DW (data window — datovd okno) 
a RDDATA (read data — dtend data), 
kterd jsou vedeny ke zpracovdni do 
Fadide typu 18272. 

Na obr. 6 je schema propojeni Fadide 
typu 18272 s ostatnimi obvody, pomoc- 
nd hradla Fadide a registr ovteddnl 
disketovych mechanik. Je vhodnd pFi- 
pomenout, te Fadid typu 18272 je 
v RVHP vyrdbdn v BLR (oznadeni CM 
609) a v NDR (U8272D). Ddle se na trhu 
objevuje pod oznadenim nPD765, napf. 
od firmy NEC. BU251 informace o tomto 
obvodu najdou z&iemci v [41. 

Registr ovteddnf disketovych mecha¬ 
nik je tvofen dtyFbitovym registrem 
1040. Vyuiity jsou tfi bity, dva pro vybdr 
prisluSnd mechaniky a jeden pro 
ovteddnf motoru. Mechaniky musi mft 
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nastaveny vnitrni propojky tak, aby se 
zapnuti motoru ovl&daio soudinem sig- 
ndiG spudtdnl motoru a vybdru mecha¬ 
niky. PFitaiem hiavidky se ovlddd soudi¬ 
nem signdlu vybdru mechaniky a vnitfnf 
pFipravenosti mechaniky. V BIOSu neni 
vyuilvdn signal READY mechaniky, 
protoie ne vSechny mechaniky jej 
poskytujf, ale podftd se s maximiMnf 
moinou dobou, za kterou je mechanika 
od aktivace pfipravena (u pouiitd me¬ 
chaniky FD1063 firmy NEC to bylo 
0,8 s). 

Na obr. 7 je schdma zapojeni Fadide 
kandlu pFfmdho pffstupu do pamdti 
(DMA) (neni nutny pFi pouiitf z&piso- 
vdho hodinovdho kmitodtu 500 kHz). 
Lze jej ate zapojit a v patici Fadide DMA 
(8257), pokud neni kandl pflmdho 
pfistupu do pamdti vyuilvdn, propojit 
n&stedujlcl vyvody na pFfsIudnd logickd 
urovnd: 

DRQ2 — log. 0 


TC — log. 0 

DACK2N — log. 1 
HRQ — tog. 0 

AEN — log. 0 

Obvody Fadide pflmdho pffstupu do 
pam&ti jsou tvoFeny viastnfm fadidem 
(1033) a posuvnym dtyFbitovym regis¬ 
trem 1030. Ten zajidfuje vidy na jeden 
poiadavek o pFenos dat kandlem DMA 
trvdnl sign&lu DRQ2 po dobu dtyF 
period hodinovdho sigrteiu. To zabez- 
peduje prenesenl prdvd jednoho bajtu 
Fadidem. Registr horni poioviny adresy 
1031 zajidfuje pFltomnost hornlch osmi 
adresovych bitu na adresovd sbdrnici, 
protoie horni poiovina adresovd sbdr- 
nice je multiplexovdna s datovou. Hra- 
dia AND obvodu 1029 spoiu s odddio- 
vadem 1032 zajidfujl jednoduchd 
a v tomto prlpadd postadujici pFekddo- 
vdni Ftdfcf sbdrnice mikroprocesoru 
typu 8080 na Fidicl sbdrnici Z80 a zpdt. 
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Obr. 7. Radii DMA pro FDC 
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2. POU2ITE SOUfcASTKY, 
PRAKTICKE PROVEDENf 

Pou2it6 sou&dstky byly z rady 
74LS ... Co se tyfce praktick6ho prove- 
deni, platf z^sady uveden£ v [1J. Propo- 
jovaci kabel must byt co nejkratSf, 
pokud moino typu ,,twist" nebo ale- 
sport mezi kazdymi dvrtma iivymi vo- 
diCi must byt tazena zem. Musi me si 
totii uvrtdomit, ie vlastnrt prodluzujeme 
sbSrnici procesoru. 

2.1. Seznam pouiitych int. obvodO 
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Obr. 6. Pfipojeni disketovb mechaniky 















































3. POPIS PROGRAMOVE 
CASTI 

Ovodem tito disti dlinku je vhodni 
pFipomenout zikladnf zisady organiza- 
ce souboru na disku v operadnfm 
systemu CP/M. Logicki zaFfzenf a disti 
souboru jsou ta, na kteri se obraci 
modul BDOS, zatfmco modul BIOS 
zajiifuje propojenf poiadavku modulu 
BOOS dile na konkritnf fyzicki zaFfze¬ 
nf (disketovi mechaniky) a fyzicki 
soubory na nich. Z tohoto je zFejmi, ie 
pFi pouiiti vhodnych pFekidovivacich 
algoritmG v modulu BIOS je moini jini 
struktura dat na fyzickych discfch, nei 
kterou predpoklidi BDOS. Je dokonce 
moini mit na kaidi z iestnicti 
moinych disketovych mechanlk jiny 
formit ziznamu dat. Operadnf system 
CP/M podfti s nisiedujici logickou 
strukturou ziznamu dat na disketu: 

vita — ziznam dlouhy 128 bajtG, 

alokadni btok — podet vit (konstanta 
BLS viz dile), kteri jsou alokoviny 
(vyhraieny) pomocf jednoho bitu 
v bitovi alokadnf mapi disku. Xato 
konstanta je vidy mocninou dvou, 
minimilni je rovna osmi. 

Fyzicki organizace dat na disku je 
nisledujfcf: 

sektor — minimilnf ziznam, ktery Ize 
na disk umistit, 

stopa — datovy objem dosaiitelny bez 
pohybu hlavidky (tato definice mi vy- 
znam pouze pro disketovou mechani- 
ku, aviak i v pFipadi ramdisku se tento 
pojem pouifvi, i kdyi zde ztricf svou 
fyzikilnf podstatu). 

Pokud se nepouifvi klasicky zfor- 
mitovani 8" disketa, je ve velki vitSi- 
ni prfpadG fyzicky sektor vitif nei vita, 
je jejfm celistvym nisobkem. Obdobni 
alokadnf blok byvi celistvym nisob- 
kem fyzickych sektorG. Pro pFekido- 
vinf se pouifvi tzv. blokujlcl — deblo- 
kujici algoritmus. Kostra pouiitiho al¬ 
goritmu je pFevzata z [2]. 

Vypis programu BIOS (Basic Input- 
Output System) je pfipojen. PFedpo- 
klidi se nisledujfcf umfstinf systemo- 
vych modulG v pamiti: 

CCP — od adresy 00600H 
BDOS — od adresy ODEOOH 
BIOS — od adresy OECOOH 

Ramdisk mi kapacitu 480 kB (32 kB 
je nulti strinka, o nfi ji2 byla Fed 
v pFedeili disti dlinku), je formito- 
vin po stopich o velikosti 4 kB, prvnf 
dvi stopy jsou vyhrazeny pro system, 
skutedni kapacita ramdisku je tedy 
427 kB. S touto kapacitou je taki nutno 
podftat pFi tvoFenf konstant v tabulce 
DPB pro ramdisk — velikost alo- 
kadnfho bioku je zvolena 2 kB (tj. pFi 
dani kapacite nejmenif moiny). Pokud 
se aplikuje jiny ramdisk (o jini kapaci¬ 
te), je nutno pfepodftat konstanty tabul- 
ky DPB (Disk Parameter Block). Totii 
plati i pro pouiiti jinak formitovani 
diskety. Jednottivi poloiky tabulky 
DPB maji nisiedujici vyznam: 

SPT — (Sectors Per Track) podet 
sektorG na stopu, pFidemi sektorem se 
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mysli vidy 128 bajtG. Pokud je disketa 
oboustranni, tak se vitiinou uvaiujf 
jako stopa oba povrchy, tzn. dvoj- 
nisobni kapacita. 

BSH — (Block SHift) posun bioku. Je to 
dvojkovy logaritmus podtu vit v alo- 
kadnfm bioku. 

BLM — (Block Mask) maska bioku. 
Podet vit v alokadnfm bioku minus 
jedna. Je to vlastni adresa posledni 
vity v alokadnfm bioku. 

EXM — (Extend Mask) maska rozSfre- 
ni. Podet logickych rozifFenf (po 16 kB), 
adresovanych jednou polozkou adre- 
sife minus jedna. Je dina takto: 


BLS 

DSM <256 

DSM >=256 

1 kB 

0 

_ 

2 kB 

1 

0 

4 kB 

3 

1 

8 kB 

7 

3 

16 kB 

15 

7 


DSM — (Disk Size Max) maximilnf 
velikost disku, to je celkovi kapacita 
diskovi jednotky v alokadnfch blocich 
minus jedna (adresa posledniho alo- 
kadnfho bioku). 

DRM — (DiRectory Max) — maximilnf 
velikost adresife, podet poloiek. adre- 
siFe minus jedna. AdresiF musf zabfrat 
celistvy podet atokadnich bioku. Plati: 

DRM = (X * (BLM + 1) * 4) — 1 

kde X je podet aiokadnich blokG adre- 
siFe. 

ALU, AL1 — (ALIocated 0,1) alokovino 
0,1. Jedni se o prvnf dva bajty alokadnf 
mapy disku. Jednidka v 7. bitu 0. bajtu 
rezervuje 0. blok atd. 

CKS — (ChecK Sum) kontrolnf soudet. 
Podet sektorG adresiFe testovanych pFi 
zipisu na pracovni rrtedium. 

OFF — (OFFset) posunutf. Jedni se 
o podet stop rezervovanyeh na poditku 
disku. VitSinou jsou tyto. stopy po- 
uifviny pro uloienf systemu. 

Podrobny popis vypisu programu 
BIOS neuvidfm, funkce jednotlivych 
distf programu je objasnina komentiFi 
pffmo ve vypisu zdrojoviho textu. 


Dalif distf programoviho vybavenf je 
program vystupu na obrazovku v mddu 
64 znakG na Fidek. Tento program je 
uveden tak6 ve vypisu zdrojoviho textu 
v assembleru, BIOS pFedpoklidi jeho 
umfstinf nad videopamitf od adresy 
06800H v „zakryti“ disti pamiti. Proti 
jinym znakovym vystupGm na obrazov¬ 
ku je program doplnin distf umoidujfcf 
zpracovivinf Ffdicfch znakG podle 
ASCII. PFed jeho volinfm se musf zruiit 
mapovinf pamiti a po provedenf vystu¬ 
pu opit obnovit. PFeruienf nenf nutno 
zakazovat, je pouifvin pferuiovacf 
mid 2 a obsluha se providi v hornf 
polovini pamiti. To viak platf pouze 
pokud mime zarudeno, ie ukazatel 
zisobnfku mfFf do hornf poioviny pa¬ 
miti, coi nenf vidy splnino. Z toho 
duvodu je rtejjednodu&ifm Fedenfm 
pFeruSeni zakizat. Tabulka generitpru 
znakG je pouiita z programu D-Writer 
666. ZO Svazarmu, je v&ak moino 
pouift kaidy generitor s deskymi zna- 
ky, ktery mi znaky umfstiny v hornf 
polovini bajtu a pro jeden znak potFe- 
buje osm bajtG. Tabulku generitoru 
znakG zfskime z fjrogramu D-Writer 
napF. po povelu EXT.-B povelem SAVE 
„genchrcs“ CODE 35708,1064 (nahra- 
jeme na pisku). 


2.1 VytvoFeni a oiivenf systimu 

Pro prvnf pokusy pFedpoklidejme, 
ie mime na pisce nahrani nisiedujici 
programy ve formitu ZX Spectrum: 

1. Program znakoviho vystupu na 

obrazovku(nahrivime od 06800H). 

2. Generitor znakG (nahrivime od 

07000H). / 

3. Modul CCP (nahrivime od 0D600H). 

4. Modul BDOS (nahrivime od 

ODEOOH). 

5. Modul BIOS (nahrivime od 

OECOOH). 

PFed jejich nahrivinfm zakiieme 
pFfstup BASICu do oblasti systimu 
napF. povelem CLEAR 24000. Po na- 
hrinf viech tichto souboru mGieme 
teoreticky zadft pracovat pod ope- 
radnfm systimem CP/M. Po spuitinf 
systimu pFfkazem RANDOMIZE USR 
65408 se smaie obrazovka a vypfSe se 
otaznfk. Pokud odpovfme y, probihne 
formitovinf ramdisku, jinak nenf ram¬ 
disk formitovin (pFi startu po vypadku 
napijecfho napitf), je vypsino uvodnf 
hliienf BIOSu a systim se ohlisf napF. 
0A>. Nynf v§ak potFebujeme disketo¬ 
vou mechaniku a nahranou disketu se 
zikladnfm programovym vybavenfm. 
Pokud jsme se nerozhodii pro stavbu 
Fadide dipketovi mechaniky (a X ui 
z jakychkoliv duvodu) a mime pouze 
ramdisk a kazetovy magnetofon, je 
tFeba nejprve vytvoFit program TA- 
PE.COM, ktery nim umoinf komunika- 
ci s magnetofonem pod systimem 
CP/M. Tento program je nutno vytvoFit 
pod operadnfm systimem Spectra, 
pFeloiit, nahrit do pamiti a pomoci 
kritkiho pomocniho programu ve 
strojovim k6du jej pFenist do. disti 
pamiti od adresy 001OOH. Zde mGie¬ 
me s vyhodou vyuift moinosti pFipnout, 
si nultou strinku ramdisku doprostFed 
systimovi pamiti a program, ktery mi 
byt nahrin od adresy 001 OOH do nf 
nahrajeme od adresy 081 OOH. PFi pFi- 
pnutf nulti strinky jako systimovi 
pamiti bude jii umfstin od adresy 
001 OOH. Prvnfm pFfkazem, ktery mu- 
sfme zadat po ohliienf se systemu, je 
SAVE 8 TAPE.COM. dfmi nahrajeme 
tento program na ramdisk. Muieme 
vyuifvat (nynf jii pomirni vetkou), 
programovou zikiadnu pouifvanou 
majiteti podftadG SHARP, pracujfcfch 
pod operadnfm systimem CP/M 
s ramdiskem a kazetovym magnetofo¬ 
nem. ProstFednictvfm mgf pisky Ize 
lehce vymiftovat programy a data mezi 
majiteii tichto dvou rGznych typG po¬ 
dftadG, po pFipojeni 8" disketovi me¬ 
chaniky Ize vyminit programy praktic- 
ky se viemi majiteii profesionilni 
vyribinych podftadG, pracujfcfch pod 
systimem CP/M. 
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;iogick ych 

vet na stopu 

110 

CPMSPT 

ESU 

4*18 

115 

;»aska 

cisla vetr 

122 

SECMSK 

ECU 

-J 

125 

jdvoikovy logaritaus HSTaU' 

130 

SECSHF 

ESU 


i w 5 

WRALL 

sau 

0 

140 

WRDIR 

ESU 

l 

145 

URUAl 

EQL 

2 

150 

N 

ECU 

#0802 

155 

EOT 

ESU 

#0809 

160 

BPL.RK 

EQU 

#882A 

165 

GPL.FT 

EQU 

#0085 

170 

DTL 

EQU 

#00FF 

175 

SRTHUT 

EQU 

#08CF 

180 

HLTND 

ESU 

#0883 

1E5 

35 

EQU 

#80E5 

190 

SC 

ESU 

#0009 

195 

CR 

EQU 

#8085 

280 

LF 

EQU 

«888A 

285 

COOUT 

EQU 

#6800 

210 

CHOHE 

EQU 

#8882 

—E15 

CBELL 

EQU 

#8087 

220 

CBS 

ESU 

#8888 

->25 

CTAB 

EQU 

#8809 

230 

CLF 

ESU 

LF 

235 

CFF 

EQU 

«000C 

240 

CCR 

EQU 

CR 

245 

CROLL 

EQU 

#8011 

250 

CPASE 

EQU 

#8812 

255 

CCLLI 

EQU 

#0016 

260 

CUP 

EQU 

10818 

265 

CRISH 

EQU 

#001A 

270 

CAT 

EQU 

#88 IB 

275 

CBQRD 

EQU 

«001E 

2S0 

FDCMSR 

EQU 

#0010 

285 

FDCBTR 

EQU 

*8011 

290 

FDCTMR 

EQU 

800/28 

295 

TERCNT 

EQU 

#082F 

380 

RETRY 

EQU 

10 

385 

SEKSIZ 

EQU 

128 

310 

RDSKOF 

EQU 

1 

315 




320 




325 


0R6 

BIOS 

330 




335 

SECTRS 

EQU 

-CCP/SEKSIZ 

340 




345 

;vektor skoku na 

350 

{podprograay BIQSu 

355 


JP 

BDOT 

360 

WBOOTE 



365 


JP 

WBOOT 

370 


JP 

CONST 

375 


JP 

CONIN 

380 


JP 

CONOUT 

385- 

JP 

LIST 

390 


JP 

PUNCH 

395 


JP 

READER 

400 


JP 

HOME 

405 


JP 

SELDSK 

410 


JP 

SETTRK 

415 


JP 

SETSEC 

420 


JP 

SETDMA 

425 


JP 

READ 

430 


JP 

WRITE 

435 


JP 

LISTST 

440 


JP 

SECTRA 

445 


JP 

FORMF 


450 

455 {tabulky pro disky 
460 

465 ; raadisk 480 kbyte 
470 DPBASE 


475 

DEFW 

0,8 

480 

DEFW 

0,0 

485 

DEFW 

DIRBUF 

498 

DEFW 

DPBLKR 

495 

DEFW 

CHKBR 

500 

DEFW 

ALL0R 

505 ; 
510 

floppy disk 360 kByte 
DEFW TRANSF,8 

515 

DEFW 

0,0 

520 

DEFW 

DIRBUF 

525 

DEFW 

DPBLKF 

530 

DEFW 

CHK0F 

535 

DEFW 

ALL0F 


540 


545 ;transforaacni tabulka 
550 {sektoru floppy disku 
555 TRANSF 


560 



fyzicky sektor 

565 



1 

570 

;Hlava 

0: 

V 

575 


DEFB 

00,01,02,03 {0 

580 


DEFB 

16,17,18,19 {4 

585 


DEFB 

32,33,34,35 {8 

598 


DEFB 

12,13,14,15 ;3 

595 


DEFB 

28,29,30,31 ;7 

600 


DEFB 

08,09,10,11 ;2 

605 


DEFB 

24,25,26,27 ;6 

610 

. 

DEFB 

04,05,06,07 {1 

615 


DEFB 

20,21,22,23 ;5 

620 

fHIava 

1: 


625 


DEFB 

36,37,38,39 ;0 

638 


DEFB 

52,53,54,55 ;4 

635 


DEFB 

68,69,70,71 {8 

640 


DEFB 

48,49,50,51 {3 

645 


DEFB 

64,65,66,67 ;7 

650 


DEFB 

44,45,46,47 ;2 

655 


DEFB 

60,61,62,63 {6 

660 


DEFB 

40,41,42,43 {1 

665 


DEFB 

56,57,58,59 ;5 

678 




675 

;tabulka DPB 

pro flDPpydisk 

680 

DPBLKF 



685 


DEFW 

18*4;SPT 

698 


DEFB 

4 ; B5H 

695 


DEFB 

15 {BLN 

700 


DEFB 

0 5 EXM 

785 


DEFW 

170 ;DSM 

710 


DEFW 

63 {DRH 

715 


DEFB 

128 ;AL0 

720 


DEFB 

B ; AL1 

725 


DEFW 

16 ;CKS 

730 


DEFW 

2 {OFF 

735 




740 

;tabulka DPB 

pro raadisk 

745 

{track 

(stopa) s 4 kbyte 

750 

DPBLKR 



755 


DEFW 

8*4 {SPT 

760 


DEFB 

4 ; BSH 

765 


DEFB 

15 {BLH 

770 


DEFB 

0 {EXM 

775 


DEFW 

235 ;DSM 

780 


DEFW 

63 {DRH 

785 


DEFB 

128 {ALB 

790 


DEFB 

0 {AL1 

795 


DEFW 

16 {CKS 

800 


DEFW 

2 {OFF 

805 




818 

;podprograay 

ukladani a 

815 

icteni 

systeau z prvnich 

820 

; stop 

raadisku 

825 

LOADSY 



830 


XOR 

A 

835 


JR 

RWSYS 

840 

SAVESY 



845 


LD 

A,#FF 

850 

RWSYS 



855 


LD 

BC.BIOS-CCP 

860 


LD 

DE ,#4000 

865 


LD 

HL,CCP 

870 


OR 

A 

875 


JR 

NZ.RWSYSB 

880 


EX 

DE,HL 

885 

RWSYS0 



890 


DI 


895 


LD 

A.RDSKOF 

900 


OUT 

(3) ,A 

905 


LD 

A,*30 

910 


OUT 

(4) ,A 

915 


LDIR 


920 


LD 

A, #20 

925 


OUT 

(4),A 

930 


RET 


935 




940 

{podprograay 

funkei BIOSu 


950 {inicializace 
955 ;vstup po pocatecnia zave 
960 {deni systeau pocatecnia 
965 {zavadecea z paaeti ROM 
970 BOOT 


975 


XOR 

A 

980 


LD 

(IOBYTE) ,A 

985 


LD 

(SEKDSK) , A 

990 


LD 

(HSTACT),A 

995 


LD 

1UNACNT) ,A 

1000 


LD 

HL,HLASDT 

1005 


CALL 

TEXTCO 

1010 


JP 

60CPH 

1015 

WBOOT 



1020 


DI 


1025 


LD 

SP,#80 

1030 


XOR 

A 

1035 


LD 

(HSTACT1 , A 

1040 


LD 

(UNACNT), A 

1045 


LD 

C,i 

1050 


CALL 

SELDSK 

1055 


CALL 

HOME 

1068 


CALL 

LOADSY 

1065 

{konec 

zavlekani, iniciali- 

1070 

;zace . 

a vstup 

do systeau 

1075 

SOCPM 



1080 


DI 


1085 


LD 

A, #C3 

1098 


LD 

(0), A 

1095 


LD 

HL,WBOOTE 

1100 


LD 

Cl),HL 

1105 


LD 

1S >»A 

1110 


LD 

HL,BDOS+6 

1115 


LD 

(6),HL 

1120 


LD 

1C,#§880 

1125 


CALL 

SETDMA 

1138 


XOR 

A 

1135 


OUT 

(6) ,A 

1140 


LD 

(FDCTIN),A 

1145 


LD 

(HSTACT) ,A 

1150 


LD 

(UNACNT),A 

1155 


LD 

(#F601) , A 

1160 


IN 

A,(FDCMSR) 

1165 


CP 

#FF 

1170 


JR 

Z.GOCPHB 

1175 


LD 

A, #88 

1188 


OUT 

(6) , A 

1185 


XOR 

A 

1190 


OUT 

(6) ,A 

1195 


LD 

HL,FDCSPE 

1200 


CALL 

FDCOUT 

1285 


CALL 

HOMEF 

1210 

60CPM8 



1215 


LD 

A,#FB 

1228 


LD 

I,A 

1225 


IM 

2 

1230 


LD 

HL,INTERT 

1235 


LD 

(#FEFF),HL 

1248 


LD 

A,(SEKDSK) 

1245 


LD 

C,A 

1250 


El 


1255 


JP 

CCP 

1260 




1265 

{uvodni hlaseni BIOSu 

1270 

HLASDT 



1275 


DEFB 

CFF 

*64K CP/M “ 

1280 


DEFM 

1285 


DEFH 

"ver. 2.26* 

1298 


DEFB 

CCR,CLF,CLF 

1295 


DEFM 

" BIOS for " 

1308 


DEFM 

"ZX Spectrua* 

1305 


DEFM 

* A.Jurik * 

1310 


DEFM 

"1988" 

1315 


DEFB 

CCR,CLF 

1320 


DEFM. 

" raadisk " 

1325 


DEFM 

"size 472" 

1330 


DEFM 

" kByte* 

1335 


DEFB 

CCR,CLF,0 

1340 




1345 

{podprograay 

pro V/V 

1350 




1355 

?stav 

klavesnice 

1360 

;0 * 

neni stisknuto 

1365 

;FF = 

je pripraven znak 

1378 

CONST 



1375 


CALL 

INKEY 

1380 


OR 

A 

1385 


RET 

Z 

1390 


LD 

A,-l 

1395 


RET 


1488 




1485 

;cteni 

znaku 

z klavesnice 







1415 

PUSH 

HL 

1935 


LB 

A,C 

1420 

1425 

LD 

HL,STAT 

1940 


LB 

(SEKSCR), A 

CQNCS2 


1945 


SRL 

A 

1430 

CALL 

Cl 

1950 


SRL 

A 

1435 

CP 

*Q" 

1955 


LB 

(SEKSEC),, A 

1440 

JR 

Z, CONCS 

1968 


RET 


1445 

CP 

"q" 

1965 




1450 

JR 

Z,CONCS 

1978 

jpreklad cisla sektoru 

1455 

RES 

0,(HL) 

1975 

j v BC 

poaoci prekladove 

1460 

CQNCS0 


1980 

jtabulky v 

BE 

1465 

POP 

HL 

1985 

SECTRA 



1470 

RET 


1990 


LB 

H,B 

1475 

CONCS 


1995 


LB 

L,C 

1480 

BIT 

8,(HL) 

2000 


LB 

A,(SEKBSK) 

1485 

JR 

Z.C0NCS1 

2005 


ANB 

A 

1490 

RES 

0,(HL) 

2010 


RET 

Z 

1495 

JR 

CONC50 

2015 


EX 

DE.HL 

1500 

CQNCS1 


2020 


ABB 

HL.BC 

1505 

SET 

0,(HL) 

2825 


LD 

L,(HL) 

1510 

SET 

1,(HL) 

2030 


LB 

H,0 

1515 

JR 

C0NCS2 

2035 


RET 

, #' 

1528 



2040 


adresy na 

1525 

;vystup znaku z C na konzolu 

2045 

;nastaveni 

1530 

CONOUT 


2050 

;adresu z BC 

1535 

DI 


2055 

SETBHA 



1548 

XOR 

A 

2068 


LB 

(BHAAB),BC 

1545 

OUT 

(4) ,A 

2065 


RET 

1558 

LD 

(STACK),SP 

2070 




1555 

LB 

SP,#6FFF 

2075 

;provedeni 

operace cteni 

1560 

CALL 

COOUT 

2080 

ssektoru z 

disku 

1565 

LB 

SP,(STACK) 

2085 

REAB 


1570 

LB 

A ,428 

2090 


LD 

A,(SEKBSK) 

1575 

OUT 

(4) ,A 

2895 


ANB 

A 

1588 

El 


2100 


JR 

NZ,REABF 

1585 

RET 


2185 

REABR 


1598 



2118 


CALL 

DHAPOS 

1595 

;tisk znaku 

z C registru 

2115 


JR 

Z,READR0 

1600 

LIST 


2120 


CALL 

TRANSR 

1605 

;vlozit podprograa vystupu 

2125 


LD 

DE,DHABUF 

1618 

;znaku z C registru na 

2138 


CALL 

READSR 

1615 

;tiskarnu 


2135 


LD 

HL.DHABUF 

1620 

RET 


2140 


LB 

BE, (BHAAB) 

1625 



2145 


LD 

BC.SEKSIZ 

1638 

;stav tiskarny 

2150 


LBIR 

1635 

LISTST 


2155 


XOR 

A 

1640 

;vlozit podprograa testu 

2160 


RET 


1645 

;pripravenosti tiskarny 

2165 

REABR0 


' „ 

16S0 

;prijaout znak 

2170 


CALL 

TRANSR ^ 

1655 

LB 

A,-l 

2175 


LD 

BE, (DHAlAB) 

1660 

RET 


2180 


CALL 

READSR 

1665 



2185 


XOR 

A 

1670 

;derovani znaku z C 

2190 


RET 


1675 

PUNCH 


2195 

REABF 


1680 

;derovac nepripojen 

2208 


XOR 

A 

1685 

RET 


2205 


LD 

(UNACNT),A 

1690 

;cteni znaku 


2210 


INC 

A 

1695 

ze sniaace 

2215 


LD 

(READOP),A 

1708 

1785 

;do A 

REABER 


2220 

2225 


LD 

LD 

(RSFLA6),A 
A.WRUAL 

1710 

;sm«ac nepripojen, cte se 

2230 


LD 

(WRTYPE),A 

1715 

;vzdy konec zaznaau (CTRL 2) 

2235 


JP 

RWOPER 

1720 

LB 

A, 41A 

2240 



1725 

RET 


2245 

jprovedeni < 

operace zapisu 

1730 



2258 

jsektoru na 

disk 

1735 

;podprograay 

obsluhy disku 

2255 

WRITE 


1740 



2260 


LB 

A,(SEKBSK) 

1745 

;nastav nultou stopu 

2265 


ANB 

A 

1750 

;aktualniho 

disku 

2270 


JR 

NZ,WRITEF 

1755 

HOME 


2275 

WRITER 



1768 

LB 

A,(HSTWRT) 

2280 

CALL 

DHAPOS 

1765 

OR 

A 

2285 


JR 

Z,WRITR0 

1770 

JR 

NZ,HOHEB 

2290 


LD 

BE,DHABUF 

1775 

LB 

(HSTACT),A 

2295 


LB 

HL,(BHAAB) 

1780 

HOHEB 


2388 


LD 

BC.SEKSIZ 

1785 

XOR 

A 

2305 


LBIR 

1790 

LB 

(SEKTRK),A 

2310 


CALL 

TRANSR 

1795 

RET 


2315 


LB 

DE,BHABUF 

1800 



2328 


EX 

DE.HL 

1885 

;vyber diskove aechaniky 

2325 


CALL 

READSR 

1810 

;speci f ikovane C registrea 

2330 


XOR 

A 

1815 

SELDSK 


2335 


RET 


1820 

LD 

A ,C 

2340 

WRITR0 



1825 

CP 

2 

2345 


CALL 

TRANSR 

1830 

LB 

HL, 0 

2350 


LD 

BE,(BHAAB) 

1835 

RET 

NC 

2355 


EX 

DE.HL 

1840 

LB 

(SEKBSK),A 

2360 


CALL 

READSR 

1845 

LB 

L, A 

2365 


XOR 

A 

1850 

ABB 

HL,HL 

2378 


RET 


1855 

ABB 

HL ,HL 

2375 

WRITEF 


1860 

ABB 

HL.HL 

2380 


XOR 

A 

1865 

ABB 

HL.HL 

2385 


LD 

(REABOP),A 

1870 

LB 

BE,BPBASE 

2390 


LB 

A,C 

1875 

ABB 

HL,BE 

2395 


LD 

(WRTYPE),A 

1880 

RET 


2480 


CP 

WRUAL 

1885 



2405 


JR 

NZ .CHKUNA 

1898 

jnastaveni stopy dane 

2410 


LB 

A.BLKSIZ/128 

1895 

;registrea C 


2415 


LD 

(UNACNT),A 

1908 

SETTRK 


2428 


LB 

A,(SEKBSK) 

1905 

LB 

(SEKTRK),IC 

2425 


LB 

(UNABSK),A 

1910 

RET , 


2430 


LD 

HL,(SEKTRK) 

1915 



2435 


LB 

(UNATRK),HL 

1920 

;nastaveni sektoru 

2448 


LB 

A,(SEKSCR) 

1923 

jdaneho registrea C 

2445 


LB 

(UNASEC),A 

1930 

SETSEC 


2450 

(test 

pokr. 

v neal. zapisu 


2455 

CHKUNA 



2460 


LB 

A,(UNACNT) 

2465 


OR 

A 

2470 


JR 

Z,ALLOC 

2475 

jpokr 

v neal. 

zapisu 

2480 


DEC 

A 

2485 


LB 

(UNACNT) ,A 

2490 


LD 

A,(SEKBSK) 

2495 


LB 

HL,UNABSK 

2508 


CP 

(HL) 

2505 


JR 

NZ,ALLOC 

2510 

sstejne disky 

,stejne stopy? 

2515 


LB 

HL,(UNATRK) 

2520 


CALL 

STCHP 

2525 


JR 

NZ,ALLOC 

2530 

istejny sektor? 

2535 


LB 

A,(SEKSCR) 

2540 


LB 

HL,UNASEC 

2545 


CP 

(HL) 

2550 


JR 

NZ,ALLOC 

2555 

;priprava adresy pro 

2560 

;pristi zapis 


2565 


INC 

(HL) 

2570 


LD 

A,(HL) 

2575 


CP 

CPHSPT 

2580 


JR 

C, NOOVF 

2585 

;dal si 

stopa 


2598 


LD 

(HL),0 

2595 


LD 

HL,(UNATRK) 

2608 


INC 

HL 

2605 


LD 

(UNATRK).HL 

2618 

;sboda 

neni treba predecitat 

2615 

NOOVF 


- 

2620 


XOR 

A 

2625 


LD 

(RSFLA6),A 

2630 


JR 

RWOPER 

2635 

;zapis 

do alokovaneho. 

2640 

;je treba predecist 

2645 

ALLOC 



2650 


XOR 

A 

2655 


LD 

(UNACNT),A 

2660 


INC 

A 

2665 


LD 

(RSFLAS),A 

2678 

RWOPER 



2675 


XOR 

A 

2680 


LD 

(ERFLAG),A 

2685 


LD 

A,(SEKSEC) 

2690 


LD 

(SEKHST).A 

2695 

;je aktivni vyrovnavaci 

2700 

;paaet? 


2705 


LD 

HL,HSTACT 

2710 


LD 

A,(HL) 

2715 


LD 

(HL),1 

2720 


OR 

A 

2725 


JR 

Z,FILHST 

2730 

;ano. Obsahuje pozadovany 

2735 

.? sektor? 


2740 


LD 

A,(SEKBSK) 

2745 


LD 

HL.HSTBSK 

2751 


CP 

(HL) 

2755 


JR 

NZ,NOHATC 

2760 

;stejny disk. 

Stejna stopa? 

2765 


LB 

HL,(HSTTRK) 

2771 


CALL 

STCHP 

2775 


JR 

NZ,NOHATC 

2788 

;stejny disk i 

i stopa. 

2785 

;Stejny sektor? 

2790 


LD 

A,(SEKHST) 

2795 


LB 

HL.HSTSEC 

2800 


CP 

(HL) 

2805 


JR 

Z,HATCH 

2810 

;pozadovany jiny sektor nez 

2815 

;ten ve vyrovnavaci paaeti 

2820 

NOHATC 



2825 


LD 

A,(HSTWRT) 

2830 


OR 

A 

2835 


CALL 

NZ.WRHST 

2840 

;napln 

vyrovnavaci paaet 

2845 

FILHST 



2858 


LB 

A,(SEKBSK) 

2855 


LD 

(HSTDSK),A 

2860 


LB 

HL,(SEKTRK) 

2865 


LD 

(HSTTRK),HL 

2870 


LD 

A, (SEKHST) 

2875 


LD 

(HSTSEC),A 

2888 


LB 

A, (RSFLA6) 

2885 


OR 

A 

2890 


CALL 

NZ.RDHST 

2895 


XOR 

A 

2908 


LD 

(HSTWRT),A 

2985 

jpresun data do nebo 

2910 

;z vyrovnavaci 

. paaeti 

2915 

HATCH 



2928 


LB 

A.(SEKSCR) 

2925 


ANB 

SECHSK 

2938 


LB 

L,0 

2935 


LB 

H,A 

2940 


SRL 

H 

2945 


RR 

L 

2951 


LD 

DE.HSTIUF 

2955 

v .. 

ABB 

HL.DE 

2960 


EX 

DE.HL 

2965 


LB 

HL,(BHAAB) 

2970 


LD 

BC,128 




» 


2975 LB A,(READOP) 

2969 OR A 

2985 JR NZ.RWHOVE 

2998 ;zapis, aznac a obrat seer 

2995 LB A,l 

3998 LB (HSTNRT),A 


3985 

EX 

DE.HL 

3818 

;presun 128 

byte 

3815 

jz (HL) do 

(BE) 

3828 

RWHOVE 


3925 

EX 

DE.HL 

3938 

LDIR 


3835 

jdata byla i 

presunuta z/do 

3848 

jHSTBUF 


3845 

LB 

A,(WRTYPE) 

3858 

CP 

WRDIR 

3855 

LB 

A,(ERFLAG) 

3868 

RET 

NZ 

3865 

;zapis do adresare je tret 

3878 

;pravest ihned 

3875 

OR 

A 

3688 

RET 

NZ 

3885 

XOR 

A 

3898 

LB 

(HSTNRT),A 

3895 

CALL 

WRHST 

3188 

LB 

A,(ERFLAG) 

3185 

RET 



3116 

3115 ;prevod logickeho cisla 
3129 ssektoru na fyzicke 
3125 ;pra raedisk 
3139 ;vstup: (SEKSEC),(SEKTRK) 
3135 ;vystup: HL - pocatecni 
3149 5 adresa sektoru o 

3145 ; deice 126 byte 


3158 

TRANSR 


3155 

LB 

A,(SEKTRK) 

3168 

LB 

E,0 

3165 

LB 

D,A 

3178 

SRL 

B 

3175 

RR 

E 

3188 

SRL 

D 

3185 

RR 

E 

3198 

SRL 

B 

3195 

RR 

E 

3288 

tv B Fyzicky 

track, 

3285 

:v E niz9i bity adresy 

3218 

LB 

A,D 

3215 

ABB 

A.RDSKOF 

3228 

OUT 

(3) , A 

3225 

SRL 

E 

3238 

LB 

HL,84888 

“^235 

LB 

A,E 

3248 

ABB 

A,H 

3245 

LB 

H, A 

3258 

LB 

A,(SEKSCR) 

3255 

SRL 

A 

3268 

RR 

L 

3265 

OR 

H 

3278 

LB 

H, A 

3275 

RET 


3288 



3285 

;zjisteni nutnosti pouziti 

3298 

jvyrovnavaciho bufferu pro 

3295 

joperaci s raediskee 

3388 

}vystup Z - 

2 neni treba 

3385 

9 

1 je treba 

3318 

BMAPOS 


3315 

LB 

BE,(BMAAB) 

3320 

LB 

HL,128 

3325 

ABB 

HL.DE 

3330 

LB 

A,H 

3335 

ANB 

IC8 

3340 

RET 

Z 

3345 

^3 

A,D 

3358 

ANB 

»C0 

oo55 

CP 

#C8 

3360 

RET 





3370 

?podprogra« 

cter,i /zapisu 

3375 

:sektoru z raedisku 

3338 

REABSR 


3385 

LB 

BC,128 

3390 

LD 

A , 838 

3395 

Di 


3400 

OUT 

(4) ,A 

3485 

LDIR 


3410 

LD 

A, 822 

3413 

OUT 

(4 ! * A 

3420 

z r 


3425 

RET 


3430 



. 3435 

:padprograe 

pro 16 bitove 

3440 

: porovnani 


3445 

: vstup: HL 

- tUNATRK) nebo 

3450 


(HSTTRK) 

3455 

: (SEKTRK) 

3468 

:vystup: Z - 

<u a ■. ej«8 

3465 


I ruzne 

347e 

ST CMP 


3«75 

• 

SE,(SEKTRK) 

3480 

LD 

A , L 

3485 

CP 

E 

3490 

RET 

NZ 


3495 

LB 

A,H 

3580 

CP 

B 

3505 

RET 


3510 



3515 

;podproara« i 

povelu FBC 

3522 

;vstup: HL - 

adresa oocatku 

3525 


datoveho bloku 

3530 

FDCQUT 


3535 

LD 

C,FDCBTR 

3542 

LD 

B,(HL) 

3545 

INC 

HL 

3550 

FBCOUa 


3555 

IN 

A,iFDCMSR) 

3560 

an: 

XC» 

3565 

CP 

880 

3570 

JR 

NZ,FDC0U2 

3575 

OUT! 


3580 

w h 

NZ,FBCOU0 

3585 

. IN 

A,(FBCHSR) 

3590 

RET 


3595 



3600 

?podproorae 

vstupu vysiadku 

3605 

:po provedeni povelu FBC 

5610 

:vstup: HL - 

adresa pocatku; 

3615 

: 

ukladam dat 

5620 

; B 

- delka bloku 

3625 

FDCIN 


^>6^0 

LD 

C.FDCDTR 

36-ju 

FDCI.0 


3640 

IN 

A,(FBCHSR) 

3645 

ANB 

tea 

3650 

CP 

8C8 

3655 

JR 

NZ,FBCI_8 

3660 

INI 


3665 

JR 

NZ.FDCI.8 

.3670 

RET 


3675 



3688 

;podprogra«y 

■f yzickeho 

3685 

;zapisu nebo 

cteni 

3698 

;sektoru floppydisku 

3695 

jvstup : (HSTBSK) - disk 

3788 

; iHSTTRKi - stopa 

3705 

; (h'STSECi - sektor 

3718 

; pres WRKST - zapis 

3715 

; pres RDHST - cteni 


3720 :zapisuje/cte se HSTSIZ 
3725 ;byte z/do HSTBUF 


3738 ;vystup|s nastaveni (ERFLA65 
3735 WRHST- 


3748 

LD 

A,#45 

3745 

LB 

L,§80 

3750 

JR 

FBCHST 

3755 RDHST 



3768 

LD 

A, #46 

3765 

LD 

L,#48 

3778 FBCHST 



3775 

LB 

(FDCRW+1),A 

3788 

LB 

A,L 

3785 

LB 

CDKAREG),A 

3798 

XOR 

A 

3795 

LB 

(ERFLAS),A 

3800 

LB 

A,RETRY 

3805 

LB 

(PRETRY),A 

3318 FBCHS4 



3815 

CALL 

WAIT 

3828 

CALL 

SELTRK 

3825 

LD 

A,(HSTTRK) 

3830 

LD 

(FDCRN+3),A 

3835 

LD 

A, (HSTSEC) 

3848 

LD 

B,A 

3845 

SUB 

9 

3858 

JR 

NC,FBCHSB 

3855 

LB 

A,B 

3868 

INC 

A 

3865 

LD 

(FDCRN+5),A 

3870 

XOR 

A 

3875 

JR 

FBCHS1 

3888 FBCHSB 



3885 

INC 

A 

3898 

LB 

(FDCRW+5),A 

3895 

LD 

A, 1. 

3908 FBCHS1 



3905 

LB 

(FBCRW+4),A 

3910 

RLCA 


3915 

RLCA 


3928 

LB 

B,A 

3925 

LB 

A,(HSTBSK) 

3938 

OR 

B 

3935 

LD 

(FDCRW+2),A 

3948 

LD 

HL,FDCRW 

3945 

D1 


3950 

CALL 

FBCBUT 

3955 

LB 

A,(DHAREB) 

3968 

BIT 

7,A 

3965 

LB 

HL,HSTBUF 

3970 

LB 

C,FDCDTR 

3975 

LB 

D.HSTBLK 

3988 

CALL 

WRHS 

3985 

El 


3998 

LD 

(ERFLGB),A 

3995 

LB 

B ,7 

4888 

LB 

HL,FDCRES 

4085 

CALL 

FBC IN 

4818 

LD 

A,(FBCRES) 


4815 


ANB 

»C« 

4828 


JR 

Z,FDCHS2 

4825 


LB 

A, 1 

4838 

FBCHS3 



4835 


LB 

(ERFLAG),A 

4848 


LB 

A,(ERFLGB) 

4845 


OR 

A 

4850 


JR 

NZ.FBCHS5 

4855 


LB 

A,(ERFLAG) 

4B68 


OR 

A 

4865 


JR 

NZ.FDCHS5 

4878 


RET 


4875 

FBCHS2 



4088 


XOR 

A 

4885 


JR 

FDCHS3 

4898 

FBCHS5 



4095 


LB 

A,(PRETRY) 

4188 


DEC 

A 

4185 


LD 

(PRETRY),A 

4118 


LB 

A,-l 

4115 


RET 

Z 

4120 


JR 

FDCHS4 

4125 

WRHS 



4138 


JR 

NZ,WRHSTW 

4135 

WRHSTR 



4148 


LB 

B.SEKSIZ 

4145 

WRHSR1 



4158 


IN 

A, (FBCHSR) 

4155 


CP 

#FB 

4168 


JR 

Z,WRHSR2 

4165 


CP 

#D0 

4178 


JR 

Z,WRKSR9 

4175 


JR 

WRHSR1 

4188 

WRH8R2 



4185 


INI 


4198 


JR 

NZ,WRHSR1 

4195 


BEC 

B 

4288 


JR 

N2,NRHSTR 

4285 


OUT 

(TERCNT)»A 

4218 


XOR 

A 

4215 


RET 


4228 

WRKSR9 



4225 


LD 

A,-l 

4238 


RET 


4235 

WRHSTW 



4248 


LB 

B.SEKSIZ 

4245 

WRHSW1 



4258 


IN 

A, (FBCHSR) 

4255 


CP 

#BB 

4268 


JR 

2,NRHSW2 

4265 


CP 

#DB 

4278 


JR 

Z,WRHSR9 

4275 


JR 

NRHSW1 

4288 

WRHSW2 



4285 


OUT I 


4298 


JR 

NZ.NRHSWl 

4295 


DEC 

B 

4388 


JR 

NZ,WRHSTW 

4385 


OUT 

(TERCNT), A 

4318 


XOR 

A 

4315 


RET 



4329 

4325 jpodprograe nastaveni DMA 
4338 ;kontroleru 8257 
4335 ; vstup* L - bity R/N z TC 
4348 ; BE - poc. adresa 


4345 ; 

BC - 

delka bloku 

4358 STDHAC 



4355 

LB 

BC,HSTSIZ 

4360 

LB 

DE.HST1UF 

4365 STBHC8 



4378 

LB 

A, #44 

4375 

OUT 

(#28),A 

4388 

LB 

A,C 

4385 

OUT 

(#25),A 

4398 

LD 

A,1 

4395 

OR 

L 

4488 

OUT 

(#25),A 

4485 

LB 

A.E 

4418 

OUT 

(#24),A 

4415 

LD 

A.D 

4428 

OUT 

(#24),A 

4425 

RET 



4435 ;podprograe nastaveni stopy 
4448 jfloppy disku z H8TTRK 
4445 ;vystup: (ERFLA6),(PCM) 

4458 SELTRK 


4455 

LD 

A,(HSTTRK) 

4468 

OR 

A 

4465 

JR 

Z.HOHEF 

4478 

LB 

(FDCSC+3),A 

4475 

LB 

A,(HSTBSK) 

4488 

LB 

(FBCSC+2),A 

4485 

LD 

HL.FBCSC 

4490 

CALL 

FDCOUT 

4495 

JR 

HOHEF0 

4508 

spodprograe 

fyzickeho 

4585 

$nastaveni eeebaniky na 

4518 

;nultou stopu 

4515 

HQKEF 


4528 

CALL 

NAIT 

4525 

LB 

A,(SEKBSK) 

4538 

LB 

(FDCHOH+2) ,i 


4535 


LD 

HL,FDCHQH 

5065 


LD 

C, A 

5585 ;rutina volana pri kazd 

4548 


CALL 

FDCOUT 

5070 


CALL 

FDCOC 

5598 ;preruseni 


4545 

HDMEF0 



5075 


LD 

A, (SECTOR) 

5595 KEYB 



4550 


IN 

A,(FDCHSR) 

5080 


LD 

C, A 

5608 

LD 

HL.KS0 

4555 


BIT 

7, A 

5085 


CALL 

FDCOC 

5685 KLOOP 



4568 


JR 

Z ,HQHEF0 

5090 


LD 

C,2 

5618 

LD 

B,(HL) 

4565 


LD 

A,8 

5095 


CALL 

FDCOC 

5615 

INC 

B 

4578 


OUT 

(FDCDTR),A 

5108 


LD 

A,(SECTOR) 

5620 

JR 

Z.KCH 

4575 

H0HEF1 



5105 


INC 

A 

5625 

INC 

• HL 

4588 


IN 

A,(FDCHSR) 

5110 


CP 

10 

5630 

DEC 

(HL) 

4585 


BIT 

7, A 

5115 


JR 

NZ.FORHT0 

5635 

DEC 

HL 

4598 


JR 

Z.HOHEF1 

5120 


LD 

HL,FDCRES 

5648 

JR 

NZ.KCH 

4595 


IN 

A,(FDCDTR) 

5125 


LD 

1,7 

5645 

LD 

(HL),-l 

4680 


BIT 

5, A 

5130 


CALL 

FDCIN 

5650 KCH 



4685 


PUSH 

AF 

5135 


LD 

A, (FDCRES) 

5655 

LD 

A,L 

4610 

H0HEF2 



5140 


AND 

*C0 

5660 

LD 

HL.KS4 

4615 


IN 

A, (FDCHSR) 

5145 


CP 

*80 

5665 

CP 

L 

4628 


BIT 

7,A 

5150 


JR 

Z, FORHTF 

5670 

JR 

NZ,KLOOP 

4625 


JR 

Z.H0HEF2 

5155 


LD 

A,(HEAD) 

5675 

CALL 

CIN 

4630 


IN 

A,(FDCDTR) 

5160 


OR 

A 

5680 

OR 

A 

4635 


POP 

AF 

5165 


El 


5685 

RET 

Z 

4640 


JR 

Z.HOHEF0 

5170 


RET 

NZ 

5690 

LD 

HL.KS0 

4645 


RET 


5175 


INC 

A 

5695 

CP 

(HL) 

4650 




5188 


JR 

FORHT1 

5700 

JR 

Z.KREP 

4655 

;podprograa 

foraatovani 

5185 

FDCOC 



5785 

EX 

DE,HL 

4668 

;raadisku 


5190 


IN 

A, (FDCHSR) 

5710 

LD 

HL.KS4 

4665 

FORHR 



5195 


AND 

«C0 

5715 

CP 

(HL) 

4670 


DI 


5200 


CP 

*80 

5720 

JR 

Z,KREP 

4675 


LD 

A.RDSKOF 

5205 


J R 

NZ,FDCOC 

5725 

LD 

B,(HL) 

4680 


OUT 

(3) ,A 

5210 


LD 

A,C 

5730 

INC 

B 

4685 


LD 

A,*30 

5215 


OUT 

(FDCDTR),A 

5735 

JR 

Z.KNEW 

4690 


OUT 

(4) ,A 

5220 


RET 


5740 

EX 

DE.HL 

4695 


LD 

HL,*4000 

5225 




5745 

LD 

B,(HL) 

4780 


LD 

DE,*4801 

5230 

jpodprograa 

hlaseni chyby 

5750 

INC 

B 

4785 


LD 

BC,*7FFF 

5235 

;v prubehu foraatovani 

5755 

RET 

NZ 

4710 


LD 

(HL),*E5 

5240 

FORHTF 



5768 KNEW 



4715 


LDIR 


5245 


LD 

HL,HLASFO 

5765 

LD 

E, A 

4728 


LD 

A, *20 

5250 


CALL 

TEXTCO 

5770 

LD 

(HL) ,A 

4725 


OUT 

(4) , A 

5255 


LD 

A,(SEKTRK) 

5775 

INC 

HL 

4730 


RET 


5260 


CALL 

CONUH 

5788 

LD 

(HL) ,5 

4735 




5265 


LD 

HL,HLASEN 

5785 

INC 

HL 

4748 

;podprograa 

vystupu zpravy 

5270 


CALL 

TEXTCO 

5790 

LD 

A,(KS9) 

4745 

;na konzolu 


5275 


RET 


5795 

LD 

(HL) ,A 

4758 

TEXTCD 



5280 

CONUH 



5880 

INC 

HL 

4755 


LD 

A,(HL) 

5285 


PUSH 

AF 

5805 

LD 

A,E 

4760 


OR 

A 

5290 


CALL 

CONUH1 

5810 

LD 

(HL) ,A 

4765 


RET 

Z 

5295 


POP 

AF 

5815 KEND 



4770 


INC 

HL 

5380 


RRCA 


5820 

LD 

(K58) ,A 

4775 


PUSH 

HL 

5305 


RRCA 


5825 

SET 

5,(IY+8) 

4780 


LD 

C, A 

5310 


RRCA 


5830 

RET 


4785 


CALL 

CONOUT 

5315 


RRCA 


5835 KREP 



4790 


POP 

HL 

5320 

CONUH1 



5840 

INC 

HL 

4795 


JR 

TEXTCO 

5325 


AND 

#8F 

5845 

LD 

(HL) ,5 

4880 




5338 


ADD 

A,6 

5858 

INC 

HL 

4805 

;podprograa 

spousteni 

5335 


BIT 

4,A 

5855 

DEC 

(HL) 

4810 

;dlsketove aechaniky 

5340 


JR 

NZ.C0NUH9 

5860 

RET 

NZ 

4815 

WAIT 



5345 


SUB 

6 

5865 

LD 

A,(KSA) 

4828 


DI 


5350 


JR 

CQNUM8 

5870 

LD 

(HL) , A 

4825 


LD 

HL,FDCTIH 

5355 

C0NUH9 



5875 

INC 

HL 

4838 


LD 

A,(HL) 

5360 


INC 

A 

5880 

LD 

A,(HL) 

4835 


OR 

A 

5365 

C0NUH8 



5885 

JR 

KEND 

4848 


JR 

NZ,WAITS 

5378 


ADD 

A, *30 

5890 



4845 


LD 

A,5 

5375 


LD 

C,A 

5895 ;klavesnice 

CP/H Spectr 

4858 


OUT 

(6) ,A 

5380 


CALL 

CONOUT 

5900 :(C) DaJe. 1987 

4855 


LD 

A,FDCTHR«2 

5385 


RET 


5905 C1N 



4860 


LD 

(HL),fi 

5390 

HLASFO 



5910 

LD 

BC,*FEFE 

4865 

WAIT0 



5395 


DEFH 

"Bios err: " 

5915 

LD 

D,0 

4878 


El 


5400 


DEFH 

"format error" 

5920 KLOOP1 



4875 


LD 

A,(HL) 

5405 


DEFH 

on track " 

5925 

LD 

A.D 

4888 


CP 

FDCTHR+l 

5410 


DEFB 

0 

5930 

LD 

E,*1F 

4885 


JR 

NC,WAIT0 

5415 

HLASEN 



5935 

CP 

0 

4898 


LD 

(HL),FDCTHR 

5420 


DEFB 

CCR,CLF,8 

5948 

JR 

NZ,DALI 

4905 


RET 


5425 




5945 

LD 

E,*1E 

4910 




5430 

jpodprograa 

obsluhy / 

5950 DALI 



4915 

;podprograa 

foraatovani 

5435 

jpreruseni 


5955 

CP 

7 

4920 

jfloppydisfcu 


5440 

INTERT 



5968 

JR 

NZ.DAL2 

4925 

FORMF 



5445 


DI 


5965 

LD 

E,*1D 

4930 


CALL 

HOHEF 

5450 


PUSH 

AF 

5970 DAL2 



4935 


LD 

A,39 

5455 


PUSH 

DC 

5975 

IN 

A, (C) 

4940 

FQRHF0 



5460 


PUSH 

DE 

5980 

CPL 


4945 


LD 

(HSTTRK),A 

5465 


PUSH 

HL 

5985 

AND 

E 

4950 


PUSH 

AF 

5470 


PUSH 

IY 

5990 

JR 

Z,NONE 

4955 


CALL 

SELTRK 

5475 


LD 

IY,STAT 

5995 ;A - priznak 

r ady 

4968 


CALL 

FORHTR 

5480 


CALL 

KEYS 

6000 :D - priznak 

sloupce 0- 

4965 


POP 

AF 

5485 


LD 

HL,(TIHER) 

6005 KEY 



4970 


OR 

A 

5490 


INC 

HL 

6010 

LD 

C,D 

4975 


RET 

Z 

5495 


LD 

(TIHER),HL 

6015 

LD 

H ,0 

4980 


DEC 

A 

5500 


LD 

HL,FDCTIH 

6020 

LD 

L.H 

4985 


JR 

F0RHF8 

5505 


LD 

A,(HL) 

6025 

LD 

B,0 

4998 




5510 


OR 

A 

6038 

LD 

D,L 

4995 

;foraatovani 

jedne stopy 

5515 


JR 

Z,INTERS 

6035 

LD 

E.8 

5008 

FORHTR 



5520 


DEC 

A 

6048 L00P2 



5005 


XOR 

A 

5525 


LD 

(HL),A 

6045 

RRCA 


5010 

FQRHT1 



5530 


JR 

NZ,INTERS 

6050 

JR 

C,TRANS 1 

5015 


LD 

(HEAD), A 

5535 


OUT 

(6) , A 

6855 

ADD 

HL ,DE 

5820 


DI 


5540 

INTER8 



6068 

JR 

L00P2 

5025 


LD 

A, 1 

5545 


POP 

IY 

6065 ;HL=8*RADA 

8*(0-4) 

5838 


LD 

(FDCFRH+2),A 

5550 


POP 

HL 

6870 :SC-SLOUPEC 

(8-7) 

5035 

FQRHT8 



5555 


POP 

DE 

6075 TRANS1 



5048 


LD 

(SECTOR),A 

5560 


POP 

BC 

6880 

ADD 

HL,BC 

5045 


LD 

A,(SEKTRK) 

5565 


POP 

AF 

6085 

CALL 

KCAPS 

5050 


LD 

C, A 

5570 


El 


6890 

JR 

NZ.NOEXTD 

5055 


CALL 

FDCQC 

5575 


RET 


6095 

CALL 

SYHBOL 

5868 


LD 

A,(HEAD) 

5580 




6100 

JR 

NZ,NOEXTD 



6105 

LD 

DE.120 

6110 

ADD 

HL, DE 

6115 

JR 

NOSYM 

6120 NQEXTD 



6125 

CALL 

KCAPS 

6130 

JR 

NZ,NOCAPS 

6135 

LD 

DE, 40 

6140 

ADD 

HL, DE 

6145 NOCAPS 



6150 

CALL 

SYMBOL 

6155 

JR 

NZ,NOSYM 

6160 

LD 

DE,80 

6165 

ADD 

HL, DE 

6170 NOSYM 



6175 

LD 

DE,TABLE 

6180 

BIT 

1,(IY+0) 

6185 

JR 

Z,TRANS2 

6190 

LD 

DE,TABLE+168 

6195 TRANS2 



6200 

ADD 

HL, DE 

6205 

LD 

A,(HL) 

6210 

JR 

EXIT 

6215 KCAPS 



6220 

LD 

BC,#FEFE 

6225 

IN 

A, (C) 

6230 

BIT 

0, A 

6235 

RET 


6240 SYMBOL 



6245 

LD 

BC,*7FFE ‘ • 

6250 

IN 

A, (C) 

6255 

BIT 

1, A 

6260 

RET 


6265 NONE 



6270 

INC 

D 

6275 

RLC 

B 

6280 

JR 

C.KLOQPl 

6285 ;zadna 

klapka 


6290 

XOR 

A 

6295 

BIT 

0, (IY+i) 

6300 

JR 

NZ,EXIT 

6305 

RES 

1,(IY+0) 

6310 EXIT 



6315 

LD 

C, A 

6320 

LD 

B,0 

6325 

RET 

» 

6330 



6335 TABLE 



6340 ;MALA 

PISMENA 

48 BYTE 

6345 

DEFB 

0 

6350 

DEFM 

"aglBp" 

6355 

DEFB 

13,32 

~*6360 

DEFM 

“zsw29ol" 

6365 

DEFB 

8 

6370 

DEFM 

“xde38ike* 

6375 

DEFM 

"cfr47ujn* 

6388 

DEFM 

*vgt56yhb" 

6385 ;VELKA 

PISMENA 48 BYTE 

6390 

DEFB 

0 

6395 

DEFM 

"AQ10P" 

6480 

DEFB 

13,32 

6485 

DEFM 

"ZSN29QL" 

6418 

DEFB 

8 

6415 

DEFM 

“XDE38IKH* 

6428 

DEFM 

"CFR47UJN" 

6425 

DEFM 

“V6T56YHB* 

6438 {SHIFTOVANE ZNAKY 48 BYTE 

6435 

DEFM 

II “ N 

6448 

DEFB 

27 

6445 

DEFM 

II | M 

6450 

DEFB 

"" 1 ,13,32 

- 6455 

DEFM 

"si §); = " 

6460 

DEFM 

"*\ *+." 

6465 

DEFM 


6470 

DEFM 



6625 


DEFB 

"L",0,"X",#E4 

6638 


DEFB 

*F7,"3","8" 

6635 


DEFB 

#E9,"K","H" 

6640 


DEFB 

*E3,"F\#F2 

6645 


DEFB 

"4","7",#£A 

6650 


DEFB 

#F5,tEE,“V* 

6655 


DEFB 

G ,#F4, 5 

6660 


DEFB 

"6",#F9,*H" 

6665 


DEFB 

M B" 

6678 

6675 

Cl 

PUSH 

BC 

6680 


PUSH 

DE 

6685 


PUSH 

HL 

6690 


PUSH 

IY 

6695 


LD 

IY.STAT 

6700 

6705 

WAIT2 



6710 


CALL 

INKEY 

6715 


OR 

A 

6728 


JR 

Z.UAIT2 

6725 

6730 

PRESS 

PUSH 

AF 

6735 

6740 

BEEP 

LD 

C,28 

6745 


LD 

D, 15 

6750 

6755 

6760 

BEEP0 

DI 

LD 

B.D 

6765 

6770 

BEEP1 

EX 

(SP),IY 

6775 


EX 

(SP) , IY 

6780 


EX 

<SP) ,IY 

6785 


EX 

(SP) ,IY 

6790 


DJNZ 

BEEP1 

6795 


LD 

A,C 

6880 


AND 

1 

6805 

6810 

6815 

6820 

6825 


RLCA 

RLCA 

RLCA 

RLCA 

OR 

7 

6830 


OUT 

(iFE) ,A 

6835 


DEC 

C 

6840 


JR 

NZ.BEEP0 

6845 


POP 

AF 

6850 


RES 

5,(IY+0) 

6855 


POP 

IY 

6860 


POP 

HL 

6865 


POP 

DE 

6870 


POP 

BC 

6875 

6S80 

6885 

6890 

6895 

INKEY 

El 

RET 

PUSH 

IY 

6980 


PUSH 

BC 

6905 


PUSH 

DE 

6918 


PUSH 

HL 

6915 


LD 

IY,STAT 

6928 


BIT 

5,(IY+0) 

6925 


LD 

A,(KS8) 

6938 


JR 

NZ, FIN 

6935 


XOR 

A 

6940 

6945 

FIN 

POP 

HL 

6950 


POP 

DE 

6955 


POP 

BC 

6960 


POP 

IY 

6965 


RET 


6970 

6975 

:nasieduje 

pracovni oblast 

6980 

6985 

;BIQSu 

GRG 

#F602 

6990 

BEGDAT 

EQU 

a 


6475 

;RIDICI ZNAKY 

48 BYTE 

6488 

DEFB 

0,1,17,"1" 

6485 

DEFB 

"0",16,13.32 

6490 

DEFB 

26,19,23,*2" 

6495 

DEFB 

"9 ,15,12,0 

6588 

DEFB 

24.4,5,"3* 

6585 

DEFB 

"8*,9,11,13 

6510 

DEFB 

3,6,18,*4“ 

6515 

DEFB 

"7",21,18,14 

6520 

DEFB 

22,7,28,"5" 

6525 

DEFB 

"6*,25,8,2 

6530 

;MALA CEST1NA 


6535 

DEFB 

0,*C1,*V,"1 

6540 

DEFB 

, *p* , 13,3: 

6545 

DEFB 

#DA,#D3,#C5 

6550 

DEFB 

*2",*9",#CF 

6555 

DEFB 

"l",B,"x\#C 

6560 

DEFB 

#D7,"3*,"8" 

*565 

DEFB 

#C9,"k*, 

6570 

DEFB 

tC3,"f",tD2 

6575 

DEFB 

*4*,"7",#CA 

6580 

DEFB 

#D5,#CE,"v" 

6585 

DEFB 

“g" #D4 "5" 

6590 

DEFB 

6 ,8D9, h 

6595 

DEFB 

"b" 

6600 

sVELKA CESTINA 

6685 

DEFB 

0,#E1, Q , 1 

6610 

DEFB 

"8*,"P",13,3 

6615 

DEFB 

#FA,#F3,#E5 

6620 

DEFB 

"2","9",#EF 


6995 

700e DMAAD DEFS 2 

7305 DIRBUF DEFS SEKSIZ 

7*10 ALL0R DEFS 28 

7015 AtL0F s DEFS 23 

7020 CMK0R DEFS 16 

7025 CHK0F DEFS 16 

7030 DMABUF DEFS SEKSIZ 

7035 STACK DEFS 2 

7040 TIMER DEFW 0 

7345 FDC TIM DEFB 0 

7050 STAT DEFB 0 

7055 KS0 DEFB 0,0,0,0 

7060 KS4 DEFB 0,0,8,B 

7065 KS8 DEFB 0 

7070 KS9 DEFB 20 

7075 KSA DEFB 5 

7080 PRETRY DEFS 1 

7085 DMAREG DEFS 1 

7090 

7095 snasleduje pracovni oblast 
7100 jbiokujlciho/debiokujicibo 
7105 salgaritau pro obsluhu 
7118 jfioppy disku 5 1/4" 

7155 :1S sek/trk, 40tries 
7120 

7125 szadana diskova adresa vety 
7130 ;SEKDSK - ulozeno na adr. 4 
7135 SEKTRK DEFS 2 ; 

7140 5EKSEC DEFS 1 ; 


SEKSCR DEFS 1 ; 

;diskova adresa fyz. sekt. 

HSTDSK DEFS 1 ; 

HSTTRK DEFS 2 ; 

HSTSEC DEFS 1 ; 

;cisio pozadovaneho fyz. 

;sektoru 

SEKHST DEFS 1 ; 

;priznak HSTBUF aktivni 
HSTACT DEFS 1 ; 

;pr4znak odlozeneho zapisu 
H5TMRT DEFS 1 ; 

;citac nealokovanych zapisu 
UNACNT DEFS 1 ; 

{diskova adresa dalsi vety 
;v nealokovanee bloku 
UNADSK DEFS 1 ; 

UNATRK DEFS 2 ; 

UNASEC DEFS 1 ; 

;kod chyby 
ERFLA6 DEFS l ; 

ERFLG0 DEFS 1 

jpriznak pozadavku na cteni 
RSFLAB DEFS 1 ; 

jpriznak cteci operace (=1) 
READOP DEFS 1 ; 

;ty p zapisove operace 
NRTYPE DEFS 1 ; 

jvyrovnavaci paeet 
HSTBUF DEFS HSTSIZ { 

;nasleduje pracovni oblast 
{obsluhy radice floppy 
{disku typu 18272 


7325 FDCRW 


7330 

DEFB 

FDCFRM-H-1 

7335 

DEFB 

8,0,8,8,0 

7340 

DEFB 

N,E0T,6PL_RN 

7345 

DEFB 

DTL 

7350 

{foreat 


7355 

FDCFRM 


7360 

DEFB 

FDCSC-d-1 

7365 

DEFB 

*4D,1,N,SC 

7370 

DEFB 

6PL_FT,DD 

7375 

{set cylinder 


7388 

FDCSC 


7385 

DEFB 

FDCSIS-5-i 

7398 

DEFB 

*8F,B,B 

7395 

;sense interrupt status 

7488 

FDCS1S 


7485 

DEFB 

FDCHOH-fi-1 

7410 

DEFB 

*88 

7415 

;hoee 


7420 

FDCHOH 


7425 

DEFB 

FDCSPE-H-1 

7438 

DEFB 

*07,8 

7435 

{specify - nastaveni 

7440 

ipocatecnich 

paraeetru FDC 

7445 

FDCSPE 


7450 

DEFB 

PCN-fi-t 

7455 

DEFB 

883,SRTHUT 

7460 

DEFB 

HLTND 

7465 

{present cylinder nueber 

7470 

PCN 


7475 

DEFS 

i 

7488 

{aktivni hlava 

7485 

HEAD 


7498 

DEFS 

i 

7495 

{sektor 


7588 

SECTOR 


7585 

DEFS 

i 

7518 

{■isto pro ulozeni vysledku 

7515 

{operace FDC 


7528 

FDCRES 


7525 

DEFS 

7 

7538 



7535 

ENDDAT EQU 

fi 

7548 

DATSIZ EQU 

8-BE6DAT 

7545 



7558 

0R6 

•FCFC 

7555 

DI 


7568 

JP 

INTERT 

7565 

{vstup do systeeu po 

7570 

{zavedeni z pasky 

7575 

0R6 

#FF8B 

7588 

DI 


7585 

LD 

A,*28 

7598 

OUT 

(4) ,A 

7595 

LD 

A,«FB 

7688 

LD 

I,A 

7685 

LD 

HL,INTERT 

7618 

LD 

(*FEFF),HL 

7615 

IH 

2 

7628 

LD 

SP,*FF7F 

7625 

LD 

HL,*FB8B 

7638 

LD 

BC,256 

7635 

LD 

(HL),*FC 

7648 

LD 

DE,#FBB1 

7645 

LDIR 


7658 

LD 

C,CFF 

7655 

CALL 

CONOUT 

7668 

LD 

C,"?" 



7665 

7670 

CALL 

El 

CONOl'T 

7675 

CALL 

CONIN 

7680 

CALL 

CONIN 

“ v 

7685 

CP 

7690 

JR 

NZ.PRECK0 

7695 

CALI. 

FORMR 

7700 

7705 

CALL 

PRECH0 

SAVESY 

7710 

LD 

SP,#80 

7715 

JP 

BOOT 


5 *C- 

12 ; *■*******-********■«■********** 

is i: co out : 

25 ; * * 

32 ;♦#*****«#•»•*****#********«** 

35 

42 ;podpdrogram vystupu 
45 ;v racdu 64 znaku na radek 
50 ;KOI-8CS-2 
55 0R3 

62 CONOUT 
65 LI) 

72 JP 

75 ADRCO DEFW 
80 ADDCUR DEFB 
85 BI3P DEFS 
90 TSCRL DEFB 
95 TABCHR E2U 
102 

125 ;tabuika adres podprograau, 
110 jzpracavavajlcich vystup 
115 ;znaku 
120 

125 TABCON 


130 

DEFW 

CONIC 

00- A e 

135 , 

DEFW 

CONIC 

01-'A 

140 

DEFW 

COHOME 

02- A B 

145 

DEFW 

CONIC 

03- A C 

150 

DEFW 

CONIC 

04- A D 

4 rr, 

i jJ 

DEFW 

CONIC 

05- A E 

160 

DEFW 

CONIC t 86- A F 

165 

DEFW 

COBELL 

07- 'G 

170 

DEFW 

COBS 

0S- A H 

175 

DEFW 

COTAB 

89- A I 

180 

DEFW 

COLF 

0A~ A J 

185 

DEFW 

CONIC 

0B- A K 

190 

DEFW 

COFF 

0C- A L 

195 

DEFW 

COCR 

0D- A M 

200 

DEFW 

CONIC 

0E- A N 

205 

DEFW 

CONIC 

0F- A O 

210 

DEFW 

CONIC 

10- A P 

215 

DEFW 

COROLL 

11- A Q 

220 

DEFW 

COPAGE 

12- A R 

*? n r 
— i. J 

DEFW 

CONIC 

13- A S 

230 

DEFW 

CONIC 

14- A T 

235 

DEFW 

CONIC 

15- A U 

240 

DEFW 

COCLLI 

16- A V 

245 

DEFW 

CONIC 

17- A W 

250 

DEFW 

COUP 

18- A X 

255 

DEFW 

CONIC1 

19- A Y 

260 

DEFW 

CORIGH 

1A- A Z 

265 

DEFW 

COAT 

1B- A [ 

270 

DEFW 

CQNIC1 

1C- A I 

275 

DEFW 

CONIC1 

1D- A 1 

280 

DEFW 

COBORD 

1£- AA 

285 

DEFW 

COINVE 

1F- A 

290 TABCS 




295 

DEFB 

32 ; #80 

300 

DEFB 

144 ; a 


305 

DEFB 

32 


310 

DEFB 

145 ;~c 


315 

DEFB 

146 :~d 


320 

DEFB 

148 ;“e 

* 

325 

DEFB 

32 


330 

DEFB 

32 


335 

DEFB 

32 


340 

DEFB 

149 ; ‘i 


345 

DEFB 

156 ;'u 


350 

DEFB 

32 


355 

DEFB 

32 


360 

DEFB 

32 


365 

DEFB 

150 ;~n 


370 

DEFB 

151 ; ‘o 


375 

DEFB 

32 


380 

DEFB 

32 


385 

DEFB 

152 ;~r 


390 

DEFB 

153 ; s 


395 

DEFB 

154 j't 


400 

DEFB 

155 ; ‘u 


405 

DEFB 

32 


410 

DEFB 

147 ? 'e 


415 

DEFB 

32 


420 

DEFB 

157 ;’k 


425 

DEFB 

158 ;"z 


430 

DEFB 

32 


435 

DEFB 

159 r 


440 

DEFB 

32 


445 

DEFB 

162 ; 


450 

DEFB 

32 


455 

DEFB 

M « N 



460 


DEFB 

128 ; A 

465 


DEFB 

32 

470 


DEFB 

129 ;~C 

475 


DEFB 

138 i“D 

480 


DEFB 

132 ;“E 

485 


DEFB 

32 

490 


DEFB 

32 v 

495 


DEFB 

32 

500 


DEFB 

133 ;'I 

505 


DEFB 

140 ;~U 

510 


DEFB 

32 

515 


DEFB 

32 

520 


DEFB 

32 

525- 


DEFB 

134 ;‘N 

530 


DEFB 

135 ;'0 

535 


DEFB 

32 

540 


DEFB 

T 

■j jl 

545 


DEFB 

136 ;“R 

550 


DEFB 

137 ;~S 

555 


DEFB 

138 ;'T 

568 


DEFB 

139 ; ‘U 

565 


DEFB 

32 

570 


DEFB 

131 ;'E 

575 


DEFB 

32 

580 


DEFB 

141 ;*Y 

585 


DEFB 

142 ;~Z 

590 


DEFB 

32 

595 


DEFB 

32 

600 


DEFB 

32 

60S 


DEFB 

32 ; 

610 


DEFB 

32 

615 




620 

COO 



625 


LD 

A,C 

630 


CP 

32 

635 


JR 

C.COCB 

640 


BIT 

7,A 

645 


JR 

Z,C008 

650 


SUB 

128*64 

655 


RET 

C 

660 


LD 

H,0 

665 


LD 

L, A 

670 


LD 

DE,TABCS 

675 


ADD 

HL.DE 

680 


LD 

A, (HL) 

685 

COO0 



690 


PUSH 

AF 

695 


LD 

A, 1 

700 


LD 

(DISP+3),A 

785 


POP 

AF 

710 


CALL 

CODPR 

715 


XOR 

A 

720 


LD 

(DISP+3),A 

725 


LD 

HL,(ADDCUR) 

730 


INC 

HL 

735 


LD 

A,64 

740 


CP 

L 

745 


JR 

NZ,C001 

750 


INC 

H 

755 


LD 

L, 0 

760 

COOl 



765 


LD 

A,24 

770 


CP 

H 

775 


CALL 

Z, SCROLL 

780 

C002 



785 


LD 

(ADDCUR),HL 

798 

COOCUR 



795 


LD 

A, 143 

800 


CALL 

CQOPR 

80S 


RET 


810 




815 

;podprograay, 

zpracovavajici 

820 

;ridici znaky 


825 




830 

CQCB 



835 


ADD 

A,A 

840 


LD 

L,A 

845 


LD 

H,8 

850 


LD 

DE,TABCON 

855 


ADD 

HL.DE 

860 


LD 

E, (HL) 

865 


INC 

HL 

870 


LD 

D, (HL) 

875 


EX 

DE.HL 

880 


JP 

(HL) 

885 

CONIC 



890 


LD 

HL,COQ 

895 

CONIC0 



900 


LD 

(ADRCO),HL 

905 


RET 


910 

CONIC1 



915 


LD 

HL,CONIC 

920 


JR 

CONIC0 

925 

? 



930 

COHOME 



935 


CALL 

COCCUR 

940 

COHOM0 



945 


LD 

HL,0 

950 


LD 

(ADDCUR),HL 

955 


JR 

COOCUR 

960 

• 



965 

COBELL 



970 


LD 

HL,130 

975 


LD 

DE,32 


980 


CALL 

949 

985 


RET 


990 

* 



995 

COBS 



1008 


CALL 

COOCUR 

1005 


LD 

HL,(ADDCUR) 

1010 


LD 

A, L 

1025 


OR 

H 

1020 


JR 

Z,COOCUR 

1025 


DEC ■ 

HL 

1030 


LD 

A ,#FF 

1035 


CP 

L~ 

1040 


JR 

NZ.C002 

1045 


LD 

L,63 

1050 


JR 

C002 

1055 

• 



1060 

COTAB 



1065 


CALL 

COOCUR 

1070 


LD 

HL,(ADDCUR) 

1075 


LD 

A,L 

1080 


ADD 

A,9 

1085 


AND 

#F8 

1090 


LD 

L,A 

1095 


CP 

64 

1100 


JR 

NZ,CCQ2 

1105 


INC 

H 

1110 


LD 

L,8 

1115 


JR 

C002 

1120 

; 



1125 

COLF 



1130 


CALL 

COOCUR 

1135 


LD 

HL,(ADDCUR) 

1140 


INC 

H 

1145 


JR 

COOl 

1153 

« 



1155 

COFF 



1160 


LD 

HL,*4008 

1165 


LD 

DE,»400i 

1170 


XOR 

A 

1175 


LD 

(HL) ,A 

1180 


LD 

BC,24*32*8-1 

1185 


LDIR 


1190 


JR 

COHOM0 

1195 




1200 

COCR 



1205 


CALL 

COOCUR 

1210 


LD 

HL,(ADDCUR) 

1215 


LD 

L,0 

1220 


JP 

C002 

1225 

J 



1230 

COROLL 



1235 


LD 

A , 1 

1240 

C005 



1245 


LD 

(TSCRL),A 

1250 


RET 


1255 

5 



1260 

COPAGE 



1265 


XOR 

A 

1270 


JR 

CCC5 

1275 

; 



1280 

COCLLI 



1285 


LD 

HL,(ADDCUR) 

1298 


PUSH 

HL 

1295 

C0CLL8 



1300 


INC 

HL 

1385 


LD 

A,64 

1310 


CP 

L 

1315 


JR 

Z,COCLLI 

1320 


LD 

(ADDCUR),HL 

1325 


PUSH 

HL 

1330 


LD 

C, 32 

1335 


CALL 

COQ 

1340 


POP 

HL 

1345 


JR 

CDCLL0 

1350 

COCLLI 



1355 


XOR 

A 

1360 


LD 

(DISP+3),A 

1365 


CALL 

COOCUR 

1370 


POP 

HL 

1375 


LD 

(ADDCUR),HL 

1380 


RET 


1385 

; 



1390 

COUP 



1395 


CALL 

COOCUR 

1400 


LD 

HL,(ADDCUR) 

' 1405 


DEC 

H 

1418 


LD 

A,IFF 

1415 


CP 

H 

1420 


JR 

NZ.C0UP8 

1425 


INC 

H 

1438 

COUP0 



1435 


JP 

C002 

1440 

? 



1445 

CORIGH 



1450 


CALL 

COOCUR 

1455 


LD 

HL,(ADDCUR) 

1460 


INC 

HL 

1465 


LD 

A,64 

1470 


CP 

L 

1475 


JR 

NZ,CQRIG0 

1488 


INC 

H 

1485 


LD 

L,8 

1490 


LD 

A,24 

1495 


CP 

H 


#6802 

HL,(ADRCO) 
(HL) 

CDO 

20,20 

4 

#7000 



1588 


JR 

NZ,CORIG0 

1740 

CQOPR 


1980 

INC 

H 

1505 


LD 

L ,63 

1745 

PUSH 

AF 

1985 

INC 

DE 

1510 


DEC 

H 

1758 

CALL 

TRANCG 

1990 

DJNZ 

C00PR1 

1515 

CQR160 



1755 

POP 

AF 

1995 

RET 


1520 


JP 

C002 

1760 

SUB 

32 

2000 



1525 

* 



1765 

LD 

L, A 

2005 

:podprograa 

prevodu adresy 

1530 

COAT 



1778 

LD 

H, 8 

2018 

;tisknuteho 

znaku 

1535 


CALL 

COOCUR 

1775 

ADD 

HL, HL 

2815 



1548 


LD 

HL.CQATl 

1780 

ADD 

HL, HL 

2820 

TRANCO 


1545 

CQAT8 



1785 

ADD 

HL,HL 

2825 

LD 

HL,(ADDCUR) 

1550 


JP 

CONIC0 

1790 

EX 

DE.HL 

2838 

LD 

A,H 

1555 

COAT 1 



1795 

LD 

HL,TABCHR 

2035 

AND 

#07 

1568 


LD 

HL,(ADDCUR) 

1808 

ADD 

HL.DE 

2048 

RRCA 


1565 


CP 

24 

1885 

EX 

DE,HL 

2845 

RRCA 


1570 


JR 

C,COAT10 

1810 

LD 

HL, (DISP) 

2858 

RRCA 


1575 


LD 

A,23 

1815 

LD 

A,(DISP+2) 

2055 

SRA 

L 

1530 

C0AT18 



1820 

LD 

C, A 

2060 

PUSH 

AF 

1535 


LD 

H,A 

1825 

LD 

8,8 

2065 

ADD 

A,L 

1590 


LD 

(ADDCUR),HL 

133e 

C00PR1 


2070 

LD 

L,A 

1595 


LD 

HL.C0AT2 

1335 

LD 

A,(DE) 

2075 

LD 

A,H 

1680 


JR 

COAT0 

1840 

PUSH 

AF 

2080 

AND 

#F8 

1605 

C0AT2 



1845 

BIT 

8,C 

2085 

OR 

#40 

1610 


LD 

HL,(ADDCUR) 

1850 

JR 

NZ.CQ0PR2 

2890 

LD 

H, A 

1615 


CP 

64 

1855 

LD 

A, (DISP+3) 

2895 

LD 

(DISP),HL 

1620 


JR 

C.C0AT28 

1860 

AND 

A 

2100 

POP 

AF 

1625 


LD 

A,63 

1865 

JR 

Z,C0QPR3 

2105 

LD 

A,0 

1630 

COAT20 



1878 

LD 

A, #0F 

2110 

RLA 


1635 


LD 

L,A 

IS75 

AND 

(HL) 

2115 

LD 

(DISP+2),A 

1640 


LD 

(ADDCUR),HL 

1888 

LD 

(HL) ,A 

2120 

RET 


1645 


CALL 

COOCUR 

1885 

C00PR3 


2125 



1658 


LD 

HL.COO 

1890 

POP 

AF 

2130 

;podprograa 

scrollovani pri 

1655 


JR 

C0AT8 

1895 

JR 

C00PR5 

2135 

;rezi«u scroll, pri reziau 

1660 




1908 

C00PR2 


2140 

tpage pouze 

provede presun 

1665 

COBORD 



1905 

LD 

A,(DISP+3) 

2145 

jkurzoru, v 

HL vraci novou 

1670 


LD 

HL,COBOR0 

1910 

AND 

A 

2150 

;pozici kurzoru 

1675 


JP 

CONIC0 

1915 

JR 

Z ,CQ0PR4 

2155 



1630 

CQB0R8 



1920 

LD 

A, #F0 

2160 

SCROLL 


1685 


LD 

C, A 

1925 

AND 

(HL) 

2165 

LD 

A,(TSCRL) 

1690 


AND 

#07 

1930 

LD 

(HL) ,A 

2170 

OR 

A 

1695 


OUT 

(#FE) ,A 

1935 

C00PR4 


2175 

JR 

Z,SCRPAG 

1700 


JP 

CONIC 

1940 

POP 

AF 

2188 

PUSH 

HL 

1705 

> 



1945 

RRCA 


2185 

CALL 

#0DFE 

1718 

COINVE 



1950 

RRCA 


2190 

POP 

HL 

1715 


RET 


1955 

RRCA 


2195 

LD 

H,23 

1720 




1960 

RRCA 


2208 

RET 


1725 

:podprogram 

tisku znaku z r 

1965 

C00PR5 


2285 

SCRPAG 


1730 

; A na 

pozici 

(ADDCUR) 

1970 

XOR 

(HL) 

2210 

LD 

H,0 

1735 




1975 

LD 

(HL) ,A 

2215 

RET 




RNDr. Stanislav Ulifciansky, Komensk6ho si, owoi Kosice 


Alfanumericky alebo graficky displej je jednou z najddleiitej§ich £asti mikropo£ita£a. V suiasnosti su na displej 
osobnych mikropo£ita£ov kladen£ ui pomerne vysok£ nAroky. Na ich konStrukciu sa v modernych 
mikropo£ita£och pouiivaju takmer vyludne §pecializovan£ VLSI kontrolery, ktorA zna£ne zjednoduSujti realizAciu 
tychto obvodov. V na&ich podmienkach nemA kon§truktkr mikropo£ita£a k dispozicii v su£asnosti iiaden typ 
tak&hoto video kontrolera, preto mu ostAva jedinA moinosf — zostavif prisluSnA obvody z dostupnych 10 niiSej 
integrAcie, hoci na to spotrebuje takmer 10x viac obvodov. 

Na strAnkach AR ui bolo publikovanych niekoTko zapojenf TV displejov rAznej zloiitosti (AND-1, AND-1Z, 8080 
MC-DI). Preto som pOvodne nemal zkner publikovaf cfatti a pomerne zloiity typ zapojenia, ktorA je na homej 
hranici amatArskych moinostf. Opakovanie tematickej ulohy MIKROKONKURZU AR’87 na konStrukciu 
inteligentnAho TV displeja ma v§ak podnietilo k tomu, aby som predsa ten spracoval popis displeja, ktory som 
postavil k svojmu amatArskemu osobnAmu mikropo£ita£u. 


ZAkladnA technickA udaje: 

Forma zobrazenia textu: 32/64 znakov 
x 15 (16) riadkov. 

Format zobrazenia semigrafickych zna¬ 
kov: 

32/64 znakov x 30(32) riadkov. 

Raster znaku: 8x8 bodov. 

Reperto&r znakov: 128 Standardnych 
znakov podra normy ASCI + 128 
znakov, ktorA si mdze zvolif uiivatef. 
Generator znakov je fixny v EPROM 
typu 2716. Pri pouziti EPROM typu 
2732 sa roz§(ri reperto&r znakov a i na 
512. 


M6dy zobrazenia znakov: 

— normainy znak, 

— inverzn^ znak, 

— blikajuci znak, 

— znak s dvojitou Sirkou, 

— zatemneny znak, 

— motno nastavif 8 urovni jasu pre 
kazdy znak. 

Pre kaidy znak je moin6 navolif 
rubovornu kombinaciu uvedenych 
mddov zobrazenia. 

Typ displeja: Displej s vlastnou obrazo- 
vou pamStou 2x 2kB, ktora je su- 
£astou adresov6ho priestoru mikro- 
procesora s prioritou pristupu proceso- 
ra do tejto pamite. 


Rolovanie obrazu: Je zabezpe£en6 
obvodmi TV displeja s moinosfou 
jemnaho rolovania po jednotlivych TV 
linkach nahor alebo nadol. 

Stredovanie obrazu: Pozlciu obrazu na 
obrazovke TV prijimada je moino na- 
stavovaf v horizontainom aj vertikai- 
nom smere. 
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Popis zapojenia 

Pre pochopenie Cinnosti tohoto dis- 
pleja ui nevystaCime len so samotnou 
schemou zapojenia, ako napriklad 
v pripade pomeme jednoduchdho dis- 
pleja 8080 MC-Di [5], ale je potrebnd 
popisaf asport najddleiitejdie prvky 
a funkciu pouiiteho riedenia. Aby tento 
popis nezabral prilid vefa miesta, snazii 
som sa ho urobif Co najstruCnejdim, no 
pritom dostatoCne presnym a vy- 
stiinym. PresvedCil som sa vSak, ie 
urobif takyto popis pre zapojenie pozo- 
stavajuce z 54 IO ui nie je len Ciste 
technickou zdleiitosfou, ale na svoje si 
pride aj literdrne a vytvarne umenie. 
Citaterom, ktori nie su obozndmeni 
s principmi Cinnosti TV displejov, od- 
poruCam sa vopred obozndmif asport 
s Cldnkami z predchddzajucich 
roCnfkov AR [1—5]. 

Kvdli struCnosti tu neuvddzam obvyk- 
lu blokovu schdmu zapojenia, ale cely 
popis sa bude viazaf na tiplnu schdmu 
zapojenia, ktord je uvedend na ot>r. 1 
na str. 40, 41, a na ostatnd doplrtujuce 
taburky a obrdzky. 

Popisovany’ displej vytvdra na obra- 
zovke raster 512 x 256 bodov. Pretoze 
jeden znak je zobrazovany v rastri 
8x8 bodov, znamend to, ie mdzeme 
zobrazif 64 znakov v 32 riadkoch. To 
odpovedd prdve rozsahu 2048 znakov 
na celu obrazovku., Pretoze nie su 
obvodmi displeja generovand trvale 
zatemnend riadky ako napr. v displeji 
AND-1, pri zdpise textu musime znaky 
zapisovaf len do kaiddho druhdho 
riadku, Co ndm ddva celkove 16 zobra- 
zitefnych alfanumerickych riadkov. Je 
to sice podstatne menej riadkov ako 24 
viditernych riadkov v AND-1, avSak 
^vcfaka vaCSej medzere je text na tomto 
'displeji ovefa prehradnejdi. Hlavnym 
uCeiom tohoto riedenia je vdak to, aby 
bolo moind v semigrafickom rezime 
pokryf znakmi celO plochu obrazovky. 
V aifanumerickom rezime ndm vdak 
toto riedenie umoirtuje umiestnif do 
oddefovacich prdzdnych riadkov zob- 
razenie diakritickych znamienok nad 
verkd aj maid pismend, vcfaka Cornu tu 
mdme moznosf „nauCif“ tento displej 
slovenCinu alebo Cedtinu, Co je pri rastri 
znaku 8x8 bodov obtiaine realizova- 
tefnd. 

Vyddie uvedeny raster zobrazenia je 
urCeny zapojenim obvodov primdrnej 
Casovej zdkladne, ktord pozostdva 
z obvodov E3, D3, D4, E4, D5, E7, E8. 
Prvym stuprtom tejto Casovej zdkladne 
je oscildtor, vytvoreny z invertorov E3, 
ktory pracuje na frekvencii 12 MHz. 

Pretoze tato frekvencia je u l pomer- 
ne vysokd pre beind obvody TTL, je 
vhodnd v tomto stupni pouzif obvod 
typu 74S04 resp. 74LS04. Za oscildto- 
rom nasleduje kaskdda deliCov 1:16, 
1:16 a 1:3, ktorymi je vytvoren^ celkov]/ 
deliaci pomer 1:768. Prvd dva stupne 
tejto deliCky je potrebnd osadif syn- 
chrdnnymi CitaCmi typu 74193. Vysled- 
ny produkt z tejto kaskddy — signal 
AP9 s frekvenciou 15 625 kHz — siuii 
ako signal, z ktordho sa odvodzuje 
horizontdlny zatemrtovaci a synchroni¬ 
zaCny impulz. Druhy stupert primdrnej 
Casovej zdkladne je tvoreny obvodmi 
1/2 D5, E7, E8 — vytvdraju deliCku 
1:320, ktord zabezpeCuje tvorbu 320 TV 
riadkov a signdlu o frekvencii 48,8 Hz 
pre obvody vertikaineho zatemrtovania 
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a synchronizacie. Z celkovdho rastru 
768 bodov x 320 riadkov spada do 
viditernej Zdny 512 bodov x 256 riad¬ 
kov. To odpoveda pomerne vefkdmu 
pokrytiu plochy obrazovky TV prijima- 
Ca, vcfaka Cornu sa objavuju problemy 
s ostrosfou kresby v rohoch obrazovky 
a je nevyhnutnC zabezpeCif moinosf 
presndho nastavenia pozicie obrazu na 
Qbrazovke. Tuto ulohu plnia obvody 
tvorby zatemrtovacich a synchroni- 
zaCnych impulzov. 

Horizontaine zatemnenie a synchro- 
nizacia su odvodend z vystupu AP9 
prveho stuprta primarnej Casovej za¬ 
kladne (AP9 = HZATZ). Invertovany 
signal HZATZ je priveden^ na vstup 
posuvndho registra E9 (74164), ktory je 
ovlddanjy hodinovym signaiom AQ0 
resp. \Q0. Casovd posunutie, ktora je 
vytvdrand v tomto obvode, je potrebnC 
na zabezpeCenie spravneho zobrazenia 
v suvislosti s pouiitim vyrovnavacich 
registrov Cl, C3. Z vhodnCho vystupu 
tohoto obvodu sa odobera signal 
HZATP, ktor y sa vyuiiva na vytvorenie 
signaiu ZAT v obvode E6/6. Je taktiei 
privedeny na vstup cfalSieho posuv- 
n6ho registra D9, ktory zaisfuje 
moinosf nastavenia obrazu v horizon- 
tainom smere. Toto nastavovanie sa 
realizuje vofbou vhodnCho vystupu na 
D9, z ktorCho sa odobera spuSfaci 
impulz pre MK0 C9 (1/2 74123), ktory 
generuje horizontaihy synchronizaCny 
impulz o dfeke 4,5 az 4,9 ns. Jemna 
nastavenie pozicie obrazu v horizontai- 
nom smere je tie! mo|n6 urobif vofbou 
signaiu AP3 alebo AP3 ako hodinovrtho 
signaiu pre posuvny register D9. Ob- 
dobnym spdsobom ako pre horizontai- 
ny rozklad sa zo signai u BP 8 = VZATZ 
vytvara v E6/6 signal ZAT a po voli- 
tefnom spozdeni obvodom D8 sa v C9 
(druha polovica obvodu) vytvara verti- 
kainy synchronizaCny impulz o dfike 
160 )is. Horizontainy a vertikainy syn¬ 
chronizaCny signal sa pomocou hradla 
EX-OR B9/3 sCitavaju do uplnej syn- 
chronizaCnej zmesi SYNC, ktora je 
vyvedena naCpiCku C. 15 konektora K4. 

Primarna Casova zakladrta sa vyuiiva 
len na vytvaranie zatemrtovacich 
a synchronizaCnych signaiov, iba sig- 
naiy AP0 a i AP3 sa zuCastrtuju na 
tvorbe zobrazenia znaku ako adresa 
bodu znaku na TV riadku, AP0 -h AP2 
pri zobrazeni normaineho znaku a 
AP1^-AP3 gri zobrazeni znaku s dvoji- 
tou Sirkou. V§etky ostatnC adresovacie 
signaiy, ktor6 urCuju adresu TV riadku 
v znaku, adresu znaku v riadku a stfpci 
su generovanC sekunddrnou Casovou 
z^kladrtou. Prvy stupert tejto sekund&r- 
nej Casovej zakladne, pozostavajuci 
z obvodov C5, D5 1/2, F5 1/2, generuje 
6bitovu adresu znaku na riadku urCenti 
signdlmi AS0 al AS5. Tento CitaC je in- 
krementovany signrtlom AQ2 = AP2 pre 
norm4lny znak a signdlom o poloviCnej 
frekvencii AQ2 = AP3 pre znak s dvoji- 
tou Sirkou. Toto rieSenie umoirtuje dy- 
namicky kombinovaf na jednom riadku 
normdlne a Sirokrt znaky bez nutnosti 
zdvojovaf zdpis znaku pre Siroky znak. 
Ak su vSetky znaky na riadku s dvoj- 
nasobnou Sirkou, potom poCas trvania 
akthmej Casti riadku sa staCi naadreso- 
vaf len prvych 32 znakov, ostatnC zna¬ 
ky, hoci su zapisanS v obrazovej pa- 
mati, nebudu zobrazenS. PoCas zatem- 
nenej Casti riadku je in kremen t&cia 
CitaCa blokovanS signSlom HZATZ pro- 
strednictvom hradla E6/3. HorizontSIny 
synchronizaCny impulz vynuluje tento 
CitaC a pre kazd^ TV riadok sa zaCfna 
poCitaf odznova. 


Druhy Stupert sekundarnej Casovej 
zSkladne je tvoreny obvodmi D6 a D7. 
VystupnC signaiy BS0 — BS2 urCuju 
adresu TV riadku v znaku a dalSie 
signSly BS3 — BS7 urCuju 5 bitovu 
adresu znakovSho riadku (32 moinych 
-znakovych riadkov). Tento CitaC je 
inkrementovany horizontSInym syn- 
chronizaCnym impuizom HSYNC v Ca¬ 
se, kecf nie je akt ivny ve rtikSInv za¬ 
temrtovaci impulz (VZATZ = H) a je 
nulovany vertikSInym synchronizaCnym 
impuizom. 

SirokS paleta zobrazovacich mo l- 
nosti, ktorS poskytuje tento displej, je 
zabezpeCenS pouzit^m spdsobom or- 
ganizScie obrazovej pamate. TSto pa- 
mSf pozostSva z dvoch uplne samo- 
statnych 2 kB blokov pamate RAM, 
ktorC su zostavenrt z 8 ks 10 2114. Tieto 
bloky su z pohfadu mikroprocesora 
organizovanS ako suCasf jeho ope- 
raCnej pamate. PoufitC adresovacie 
obvody umoirtuju takmer fubovofne 
rozmiestnif tieto bloky v celom priesto- 
re 64 kB. AkonShle procesor adresuje 
obrazovu pamSf, pripSjaju sa adresovS 
vodiCe pamSti na adresovu zbernicu 
procesora prostrednictvom prepinaCov 
adresovej zbernice, zostavenych 
z obvodov typu 74157 (10 05, B5, B6, 
B7). Pripojenie pamMti na datovu zber¬ 
nicu procesora sa realizuje pomocou 
odderovaCov typu MH3216, priCom 
zSkladnou zvISStnosfou je tu to, ie pre 
kazdy pamSfovy blok mSme samostat- 
ny odderovaC datovej zbernice. Vcfaka 
tomuto rieSeniu nie su datovrt vodiCe 
tychto pamafovych blokov navzSjom 
pospSjanrt a preto sa z hfadiska vnutor- 
nych obvodov TV displeja javi obrazova 
pamSf ako jediny blok 2k, ale so 16 
bitovou datovou zbernicou. TSto orga- 
niz&cia obrazovej pamate sa potom 
vyuiiva tak, ie 8 bitov reprezentuje 
znakovy bajt a druhych 8 bitov zas 
priznakovy bajt. Preto potom nazyvame 
pamStovy blok realizovany obvodmi 
B1L, B1H, B2L, B2H ako obrazovu 
pamrtf pre priznaky a pamafovy blok 
s obvodmi B3L, B3H, B4L, B4H ako 
obrazovu pamaf pre znaky. KaidCmu 
bajtu v pamati znakov odpovedd pri¬ 
znakovy bajt v pamati priznakov 
s adresou vy§§ou o 2k v r£mci adreso- 
vrtho priestoru procesora a s rovnakou 
adresou v rdmci obvodov displeja. 
Pokiar sa maju zobrazovaf znaky 
v rovnakom m6de zobrazenia, potom 
na zdpis znaku staCi jeden bajt, priCom 
predpokladSme, ie pamaf priznakov je 
napInenS poiadovanym obsahom. Po¬ 
kiar je potrebnC zapisovaf znaky 
s rdznym m6dom zobrazenia, potom sa 
musia do obrazovej pamati zapisovaf 
2 bajty — znakovy aj priznakov^. 

Datovd zbemica pamati znakov DZX 
sa obvyklym spdsobom prip&ja na 
adresove vodiCe A3 ai A10 generator a 
znakov, ktory' je v pamati EPROM typu 
2716. NajniiSie tri adresovd vodiCe 
EPROM su napojend na signaiy BOO, 
BQ1, BQ2, ktord reprezentujti adresu TV 
riadku v znaku. Na vystupoch obvodu C4 
mame v paralelnej podobe pritomnu 
osmicu bitov, ktord odpovedaju poia- 
dovandmu zobrazeniu svetlych a tma- 
vych bodov v znaku. Tdto paralelnd 
informdcia sa neprevadza okamiite na 
sdriovy tvar, ale prechodne sa ucho- 
vava vo vyrovnavacom registri C3 
(MH3212). Vystupy z obrazovej pamate 
pre priznaky DPX sa pripajaju na druhy 
vyrovnavaci register Cl, opaf s IO 
MH3212. Tieto dva vyrovnavacie regis- 
tre Cl, C3 su riadend signdlom STBV 
tak, aby sme na ich vystupoch mali 



vidy piatnu informdciu pre zobrazova- 
ny znak — vlastnu znakovu Cast aj 
priznakovu Cast. Pomocou tychto vy- 
rovndvacich registrov sa odstraftuje 
spozdenie, ktor§ by inak bolo spdsobe- 
n6 prechodom informdcie o zobrazova- 
nom znaku cez generator znakov 
v pamati EPROM. Pretoie pre normai- 
ny znak a znak s dvojndsobnou §irkou 
je potrebnd menif obsah vyrovndvacich 
registrov v odliSnych okamiikoch, sig¬ 
nal STVB je vytvdrany prepinaCom D2 
(74157), priCom pre normilny znak je 
STVB = APO. API. AP2 (vystup F3/6) 
a pre Siroky znak je STBV = CAD3 (vy¬ 
stup D3/12). 

Vystupy z vyrovndvacieho registra C3 
su pripojene na vstupy multiplexera C2 
(74151), na ktoreho adresovd vstupy A, 
B, C su pripojend signdly AQO ai AQ2. 
Tieto signdly su, ako ui bolo spomina- 
n6, vytvdrand zo signatov ASO az AS3 
pomocou prepinaCa D2 (74157). T^m je 
zabezpeCend sprdvne vytvaranie zo- 
brazenia bodu v znaku v zdvislosti na 


Dal§i signal Cl/10 = D3 v stave D3 
= H = log 1 spdsobuje, ie sa prostred- 
nlctvom riadiaceho vstupu El zabloku- 
je dekoddr El, vcTaka Cornu sa zatem- 
ftuje zobrazenie rovn ako ako sa za- 
temftuje poCas signdlu 2 AT = H = log 0, 
ktory je privedeny na povorovacf vstup 
E2 obvodu El. K zatemneniu zobraze- 
nia dochddza v§ak taktiei poCas doby, 
kedy je obrazovd pamaf pripojend na 
zbernicu procesora a signdl SEL (pripo- 
jeny na vstup hradla A5/08) je v aktlv- 
nom stave L. Vcfaka tomu sa ruSenie 
zobrazenia na obrazovke poCas zdpisu 
ddt do obrazovej pamate realizuje ako 
Cierne Ciarky vytrhdvand z bieleho 
obrazu. Ako je zndme, toto ruSenie sa 
nedd jednoduchym spdsobom od- 
strdnif. V tejto podobe vSak pri bielom 
pisme na Ciernom pozadl bude minima- 
lizovand. 

Adresovd vstupy dekoddra El su 
pripojend na rfalSie 3 bity (D4, D5, D6) 
vyrovndvacieho registra pre priznaky 
(obvod Cl). V zdvislosti na stave tychto 


nou moduldciou v tranzistorovom stup- 
ni neddvala rozumnu moinosf nastavo- 
vania jednotlivych urovni jasu, ukdzalo 
sa ako jedind vhodnd, aj kerf trochu 
ndkladnd, riedenie s tranzistormi 
p-n-p spinajucimi v aktivnom stave 
rezistory Rxa (X=1 ai 9) na napdiie +5 V. 
V suCtovom bode x potom ziskame po- 
trebnd napdtie s odstupftovanymi am- 
piitudami, ako je to schdmaticky 
zndzornend na obr. 3. Odstupftovanie 
amplitud sa da nastavovaf zmenou re- 
zistorov Rx 3 . 

Na zdver popisu zapojema uvaazam 
e§te struCnd udaje o ostatnych obvo- 
doch displeja. Obvody 05, B5, B6, B7 
(4x 74157) tvoria prepinaC adresovej 
zbernice pre pamaf. Tento prepinaC 
pripaja pamate na adresovu zbernicu 
procesora kecf je signal SEL = H, tj. 
kecf chce procesor Citaf alebo zapiso- 
vaf data do obrazovej pamate. SuCas- 
ne tento signal prostrednictvom inver- 
tora A6/12 a hradla A5/8 zatemfiuje 
obrazovku poCas prfstupu procesora 


zvoienom type znaku (normainy resp. 
Siroky). Multiplexer C2 je naviac pro¬ 
strednictvom vstupu S hradlovany sig- 
naiom z F3/8, do je signal s periddou 
okolo 1 s vytvdrany multivibratorom E2. 
Samotntf signal z multivibrators je 
v§ak eSte hradlovany signatom z vystu- 
pu Cl/04 prostrednictvom hradla 
F3/12. Tento obvod zabezpeCuje funk- 
ciu blikania obrazu, ktore je povotova- 
nd nastavenim bitu DO = H = 
log 1 v priznak ovom b aite. Vystupnd 
signaiy VIDEO a VIDEO z multiplexera 
C2 su cez sustavu z hradiel D1 privede- 
n6 na vstup E3 dekodara El, realizova- 
naho pomocou obvodu typu MH 3205. 
V zavislosti na stave vystupu Cl/06 sa 
preto potom realizuje normaine alebo 
inverzna zobrazenie znaku. Vystupny 
signal Cl/08, odpovedajuci bitu D2 
v priznakovom bajte, je oznaCeny ako 
DBL a zabezpeCuje prepinanie obvodu 
D2, teda obvodu prepinania zobrazenia 
normaineho znaku a Sirokdho znaku. 

9x TR23 (KSY82) 


bitov sa potom pri aktivdcii dekoddra 
prostrednictvom povorovacich vstupov 
El, E2, E3 aktivuje do stavu L jeden 
z vystupov 0 a i 7. Na tieto vystupy je 
potom pripojeny obvod prevodnika TV 
urovni, ktory je realizovany tak, ze 
kazdamu z vystupov 0 at 7 dekodara 
El priracfuje inu uroveft jasu. Schama 
tohoto prevodnika je uvedena na 
obr. 2. Realizovany je na malej samo- 
statnej doske ploSnaho spoja, ktora je 
spojena s doskou displeja kablom pro¬ 
strednictvom konektora K4. 

Je to vlastne veTmi jednoduchy 
prevodnik D/A rozli§ujuci 8 analogo- 
vych urovni. Prvd verzia tohoto prevod¬ 
nika bola spojena s vf TV moduiato- 
rom. V tomto pripade sa vyiadovala 
negativna moduiacia a preto bolo 
vhodna, ie dekodar El ma vystupy 
aktivne v stave L. Ceia zapojenie preto 
obsahovalo len 3 tranzistory, niekorko 
diod a pasivne prvky. KecT som vSak 
realizoval verziu displeja so 64 znakmi 


do pamate. Na vstupy XI tychto pre- 
pinafiov su pripojend adresova vodide 
BAO ai BA9 adresovej zbernice proce¬ 
sora. Na druhu sadu vstupov X0 su 
pripojena priamo vodiCe ASX prvaho 
stuprta sekundarnej Casovej zakladne, 
zatiar to vystupy BSX druhaho stupfia 
Casovej zakladne idu najprv do su- 
matora, realizovanaho obvodmi C6, C7, 
a ai odtiar ako signaiy BQX idu na 
vstupy prepinaCa adries. V sumatore sa 
realizuje suCet dvoch 8 bitovych hodndt 
MODULO 256, kde druhou vstupnou 
veliCinou je obsah registra C8. Pokiar je 
v registri C8 zaplsana hodnota 00H, 
potom sa nit nedeje. Kecf v§ak do neho 
zapiSeme hodnotu napriklad OFH, po¬ 
tom v okamziku, kerf sa na obrazovke 

,- VIDEO ) (BIELA) 


VIDE0 1 
~L r \k4/7 \ — 


VIDE 0 2 
“LT I Ki/8 1— 


R22 Ik 2 R13 


R21 T2K^L 
R32 1k2 


VIDE0 3 
"LT I KA/9 (— 


VIDEO 5 
HJ - I K4/Tt\— 


R42 1k2 

# 4 ® 

R52 1k2 
HI3 

R5i tsKU. 

R62 1k2 


(KSY82) 

TR23 KSY71 


VIDEOS 
~\r \K4m\— 



R6i re's*. 
R72 1k2 


VIDEO ? 
~U~ \K4/13 \— 


VIDEO S 
“LT \K4/14\ — 

SYNC 

-TL \K4/15\— 


R71 T7KU. 
R82 1k2‘ 

3k9 [ jpN 

"^7 wKst 

R92 lk2 
Jk9 [ f pc 

~W rsvx 


Obr. 3. Schema- 
tick6 zn&zornenie 
vzfahov medzi 
amplitudami vy- 
stupn6ho signAlu 
z prevodnika TV 
urovne pre jednot- 
Hv6 signify VIDEO 
X a SYNC 


Obr. 2. Prevodnfk signatov video a sync 
na uplnY videosign&l s rozliSenfm os- 
mich urovni jasu 

na riadok, kvalita obrazu cez modulator 
ui prestala vyhovovaf. Preto som reali¬ 
zoval priamy vstup video signaiu do 
televizora obdobnym spdsobom ako 
v [6]. V tomto pripade v§ak potrebuje- 
me pozitivnu moduiaciu (najv3£§ia am- 
plituda odpoveda urovni bielej). Pre- 
toie priama inverzia signaiu s negativ- 


VIDEO 8 (CIERNA) 


zaCina pisaf prvy aktivny televizny 
riadok, obrazova pamaf a generator 
znakov je adresovany tak, ie sa z nich 
vyberaju udaje, ktord odpovedaju §e- 
sfnastemu TV riadku. Inkrementaciou 
registra C8 o +1 sa posuva obraz 
o 1 TV riadok nahor, dekrementaciou 
sa posuva o 1 TV riadok nadol. Cyklic- 
kym opakovanim tejto inkrementacie 
alebo dekrementacie sa realizuje tak- 
mer spojita posuvanie obrazu smerom 
nahor alebo nadol, ktord je vefmi 
prijemnd na oCi a zniiuje zrakovu 
unavu pri dlhSietrvajucej praci s po- 
CitaCom. Obvykld rolovanie obrazu 
o jeden znakovy riadok pri prichode 
znakov CR LF sa potom realizuje ako 
cyklus 16 inkrementacii v smyfike 
s Casovym spozdenim, ktordho zmenou 
sa nastavuje pozadovand rychlosf rolo- 


mikroelektronika 









vania. Pracujem s profesion&lnym po- 
CltaCom s displejom typu VT 100, ktory 
ma realizovanC toto spojita rolovanie 
a preto viem ocenif jeho vyhody. 

Vystupny signal BQ7 zo sumatora nie 
je vyuzfvany ako adresovy vodiC, ale 
zabezpeCuje preplnanie hornCho a dot* 
n6ho bloku obrazovej pamate znakov 
a priznakov. K tomuto preplnaniu must 
dochadzaf v okamziku, kecf sa ukonCI 
kreslenie 127 riadku a ma sa zaCaf 
kreslif 128 TV riadok. K zmene hodnoty 
BS7 = BQ7 z L na H docheidza pri 
nabeznej hrane signaiu HSYNC, ktor^ 
inkrementuje CitaCe D6, D7. Aby nedo- 
chadzalo ku kollzii medzi dolnou 
a hornou Casfou obrazovej pamate pri 
preplnani, je potrebnC zaistif, aby na 
urCitu dobu a vo vhodnom okamziku 
boll obidve pamate odpojenC. Dosah u- 
je sa to tym, 2e signaiy BQ7 a BQ7 su 
poCas doby horizontalneho synchroni- 
zaCnCho impulzu (4,5 (xs) zahradlovand 
v obvo doch F7/6, F7/11 signaiom 
HSYNC. 


Zapojenie obvodov dekodCra adries 
je v podstate StandardnC. Je zabezpe- 
Cen6 uplnC dekCdovanie adries, pri- 
Com je moinC zvolif ulozenie bloku 
4 kB obrazovej pamate fubovofnC 
v ramci kazddho z Csmich blokov 8 kB. 
Jedinou zviastnosfou dekoddra adries 
je to, ie vcfaka pouzitiu samostatnych 
oddetovaCov adresovej zbernice pre 
pamaf znakov a pamaf priznakov bolo 
nevyhnutnd z dvoji f obvody generacie 
signaiov CS a DCE pre oddefovaCe s IO 
typu 3216. V zapojenl, ktord je uvedena 
na obr. 1 , je obrazovd pamaf pre znaky 
uloiena na adresach E000H a l E7FFH 
a pamaf pre prlznaky na adresach 
.E800H a i EFFFH. Nakorko je pouiitd 
rozdelenie obrazu na riadky a stfpce 
v mocninach Clsla 2 (64 x 32), je 
zostavenie taburky adries pre jednotli- 
vd pozlcie na obrazovke jednoduchd 
a nie je potrebnd ho zviaSf uvadzaf. 

Pri zobrazovanl 256 TV riadkov 
z celkov6ho poCtu 320 je pokryta 
takmer ceia plocha obrazovky, priCom 
v rohoch obrazovky sa stdvaju plsmena 
vcfaka astigmatizmu neCitatefnd. Tento 
probiam je zvia§f citerny, ketf chceme 
pouzif zobrazenie so 64 znakmi na 
riadok. Preto som realizoval doplftujuci 
obvod, ktory predl2uje vertikdlny za- 
temftovacl impulz tak, ie su zatemnena 
tie2 posledna dva (30. a 31.) riadky. Po 
odpovedajucej zmene polohy vertikdl- 
neho synchronizaCndho impulzu — vy- 
stredenl obrazu — je ui Citatefnosf 
lepdia. Zapojenie tohoto obvodu je 
uvedena na obr. 4. Pokiar nepouzlvame 
TV prijlmaC aj na beind uCely, je moind 
tento problem vyriedif jednoducho 
zmen§enlm vertikdlneho rozmeru obra¬ 
zu prestavenlm prlsiuSndho ovlddacie- 
ho prvku na TV prijlmaCi. Vytvorenlm 
latemnenej Casti aktlvnej z6ny obrazu 
v§ak je mOznd docielif niektora zvld§t- 
ne efekty. V tejto zatemnenej z6ne sa 
m die realizovaf nulovanie riadku alebo 
zdpis novaho obsahu riadku, vcfaka 
Cornu sa horizontaina zmena obsahu 
riadku stane neviditernd a pri spojitom 
rolovanl textu sa na dolnej hrane 
obrazu bude vynaraf uz hotovy zaplsa- 
ny riadok. Taktiei je moind realizovaf 
rolovanie obrazu o jeden riadok (jeden 
dvojriadok) spdf s minimainou progra- 
movou podporou. 


KonStrukcia displeja 
a prevodmka TV urovni 

Displej bol realizovany ako suCasf 
amatarskeho poCItaCa TOM 84 na uni- 
verzainej doske plodndho spoja 
vefkaho eurdpskeho formatu o rozme- 
roch 235 x 180 mm. Spojovy obrazee 
tejto dosky bol uverejneny v roCenke 
AR’87 — MIKROELEKTRONIKA (typ 
V 215 ME). Osadenie tejto dosky inte- 
grovanymi obvodmi a cfalSImi suCiast- 



ZAT 30 .... zobrazuje sa 30 riadkov 
ZAT32 .... zobrazuje sa 32 riadkov 


Obr. 4. Doplnkovy obvod, ktory zabez- 
peduje predlzenie zatemnenia tak, ie je 
zatemneny aj 30. a 31. riadok 


kami je uvedena na obr. 5. Su pouiitd 
konektory typu 6AF89654 (31 kollkova, 
pozldtend), priCom konektory K1 a K2 
su pre systdmovu zbernicu mikropo- 
CitaCa, na K4 sO vyvedena vystupy 
VIDEO a SYNC a K3 je zatiaf nevyuzity. 
Na tento konektor je moind vyviesf 
vystupy z generators znakov (obvod 
C4) a potom nahradif pamaf EPROM 
pripojenlm na simulator EPROM, Co 
dovoll dynamicky menif subor zobra- 
zovanych znakov pomocou programu. 
Pdvodne sa na doske ratalo s pamafou 
2 x Ik, Co vystaCI na format 32 x 32 
znakov. Kecf som realizoval upravu na 
format 64 x 32 znakov, nezostalo mi uz 
ina riedenie nez umiestnif cfaldie pa¬ 
mate na ,,poschodie“ opatrnym spdja- 
nlm dvojlc obvodov s medzerou asi 
2 mm medzi ich puzdrami, aby sa 
aspoh trochu zab ezpe Cilo ich chlade- 
nie. Iba signaiy CS nie je moind 
privadzaf ku dvom puzdram paralelne, 
ale je potrebna na hornom z ich opatrne 
odhnuf noiiCku aC5 pripojif drdtikom. 
Takto vytvorena dvojica je zasunuta 
v patici, vyrobenej z dostupnych 16 
vyvodovych patlc rozrezanlm a zlepe- 
nlm potrebndho poCtu kontaktov. Toto 
netradiCna rie§enie som si mohol dovo- 
lif kvdli tomu, ie v poCItaCi je umiestne- 
ny maly ventilator, ktory sa stara aspoft 
CiastoCne o chladenie systCmu. Displej 
ma v tejto podobe u2 ..odjazdenych" 
niekofko desiatok hodln a zatiaf sa 
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neobjavili Siadne probldmy s pamdfami 
RAM. Trodku probldmov robf pdtica 
pre pamdf EPROM, kde sa obdas 
objavuju bodovd poruchy zobrazovania 
znakov (nadbytodnd biele bodky 
v znaku), ktord su spdsobend nedoko- 
nalym kontaktom pamate EPROM 
v pStici a zmiznu po ich predistem. 

Obvody 05, F3, F4, F5, F7 su umie- 
stnend mimo hlavnd spojovd pole- 
Potrebnd pldSky pre umiestnenie tych- 
to obvodov sa zi'skali upravou pomoc- 
nych plo§iek medzi konektorami (pre 
05 a F5), pripadne plodiek, na ktord sa 
pripdjajCt samotnd konektory (pre 
ostatnd doplnend obvody). 

Obvod prevodnika signdlov VIDEO 
a SYNC na uplm/ TV signdl je realizova- 
ny na malej dodtidke jednostranndho 
plodndho spoja. Presny obrazec spojo- 
vej dosky neuvddzam, nakofko by bolo 
vhodnd urobif jeho upravu nahraaenim 
pevnyeh rezistorov R x3 trimrami, do 
umoini presnej§ie nastavovaf jasovd 
urovne pre jednotlivd stupne jasu. 
Kedze sa jednd o pomerne jednoduchd 
zapojenie, takyto ndvrh zvlddne kazdy. 

Napriek tomu, ie sa jednd o pomer¬ 
ne zloiitd zapojenie, pri jeho oiivovani 
vystadime s logickou sondou a oscilo- 
skopom, pomocou ktordho nastavime 
oscildtor na poiadovanych 12 MHz 
a postupne kontrolujeme jednotlivd 
priebehy na vystupoch primdrnej 
a sekunddrnej dasovej zdkladne. Rov- 
nako skontrolujeme a nastavime poia- 
dovanu dliku pre impulzy HSYNC 
a VSYNC. Pokiar nemdme generator 
znakov v pamati EPROM, mozno funk- 
ciu displeja skudaf tak, ze jednotlivd 
vystupy v patici pre EPROM pripojfme 
postupne na zem krdtkym drdtikom, 
pridom sa ndm maju vytvdraf na obra- 
zovke dierno-biele zvisld pdsiky uspo- 
riadand pod Fa toho, ktord vystupy 
mdme uzemnend. Pamate RAM osa- 
dzujeme ai po dokonalom preskudani 
funkcie dekoddra adries, oddefovada 
datovej zbernice a prepinada adresovej 
zbernice. Pri oiivovani md displej vodi 
inym obvodom obrovsku vyhodu v tom, 
ie sa ndm dinnosf displeja vermi 
ndzorne prejavuje na obrazovke, do 
vermi pomdha pri hfadani pripadnych 
zdvad. Pri preciznej prdci pri zapdjani 
dosky mdie tdto pracovaf takmer na 
prvd zapnutie. 

Programovei obsluha displeja 
DIS84 

Napriek tomu, ie tento displej je 
zlozitejdi nei napr. AND-1, jeho progra- 
movanie sa nekomplikuje, naopak 
v niektorych ohradoch sa stdva jedno- 
duchdim. 

Prvou programdtorskou ulohou pri 
oiivovani tohoto displeja je naprogra- 
movanie generdtora znakov, ktory je 
v pamdti EPROM typu 2716. Tdto 
pamaf ndm pri rastri 8x8 bodov na 
jeden znak dovofuje vytvorif ai 256 
znakov. Pritom je vyuiitd do posled- 
ndho bitu. Prvych 128 znakov s D7 
= 1 odpovedd suboru ASCII znakov. 
Namiesto riadiacich nezobraziternych 
kddov mozno zadefinovat rdzne semi- 
grafickd symboly. 

Spdsob naprogramovania znaku je 
zrejmy z prikladu uvedendho na obr. 6 
pre znak E. V displeji 8080 MC-DI bol 
pouiity rovnaky spdsob kddovania 
znakov v generdtore znakov s EPROM 
typu 2708 ai na inu polohu znaku 
5 x 7 v rastri 8 x 8. Je preto moind 
pouzif tabufku znakov vytvorenu pre 
tento displej aj pre displej DIS-84. 


ADRESA 
228H 
229H 
2 2 AH 
22BH 
22CH 
22DH 
22EH 
22FH 



KODY 

7CH 

40 H 

40H 

70H 

40H 

40H 

7CH 

00H 


Tabufka d. 1. Vyznam bitov priznako- 
vdho bajtu 

DO — Blikanie 
D1 — Inverzia 
D2 — Dvojitd §irka znaku 
D3 — Blokovanie zobrazenia 
(programovd zatemnenie) 

D4 — Jas A (Farba R) 

D5 — Jas B (Farba G) 

D6 —las C (Farba B) 

D7 — Preplnanie suboru znakov v EPROM 2732 


Obr. 6. Prfklad kddovania znaku 
v generdtore znakov 

Druhu sadu znakov s D7 = 1 si mdie 
navrhnuf kaidy sdm podfa svojich 
poiiadaviek. Moino sem umiestnif na- 
priklad celu grecku abecedu a rdzne 
symboly pouifvand vo vedeckotechnic- 
kych textoch, ale tiei rdzne grafickd 
obrazce, ktore sa daju vyuiivaf na 
vytvdranie obrazov a na hry. Kto md 
tladiareft, ten sa bude snaiif prispdso- 
bit tieto znaky tomu, do vie jeho 
tladiared. 

Pre displej DIS-84 vdak mdieme 
vytvorif tiei generdtor znakov s 512 
symbolmi pri pouiiti pamate typu 2372, 
pridom adresovy vodid All tejto pa¬ 
mate je napojen^ na bit D7 priznako- 
vdho bajtu (vicf obr. 1.). To ndm 
umoifiuje programovym nastavovanim 
tohoto bitu ovlddaf vorbu dvoch subo- 
rov po 256 znakov. V subore riadiacich 
kddov ASCII je dvojica SO, SI, ktoru 
moino pouiif na takdto preplnanie. 

Z vyddieuvedendho vypiyva, ie cely 
znakovy bajt sa vyuiiva na vorbu 
znaku. Mdd zobrazenia znaku je 
ovlddany priznakovym bajtom. V ta- 
buFke fc. 1 je uvedend priradenie 
mddov zobrazenia jednotlivym bitom 
priznakovdho bajtu, v tabufke d. 2 su 
zas uvedend kddy pre vdetky moind 
kombindcie mddov zobrazenia. 

V obvyklom alfanumerickom reiime 
sa pri nulovani displeja musi zabezpe- 
dif zapisanie celej obrazovej pa mate 
priznakov zvolenym kddom mddu zo¬ 
brazenia, napriklad 00H pre 64 znakov 
na riadok v normdlnom zobrazeni, 04H 
pre 32 znakov na riadok v normdlnom 
zobrazeni. Realizdcia kurzora je vermi 
jednoduchd a spodiva v zdpise kddu 
pre inverzny a blikajuci znak do pri- 
sludndho miesta pamate priznakov. 

Programovd obsluha rolovania obra- 
zu je zrejmd z toho, do ui .bolo uvedend 
v popise zapojenia. 

Pre zabezpedenie dinnosti displeja 
v beinom alfanumerickom reiime ui 
mdm vypracovany program, ktory vzni- 
kol upravou programovdho modulu 
OUTDIS napisandho pre displej AND-1. 
Nebol vdak zatiaf preskudany v rdmci 
celdho monitora mikropoditada 
TOM-84, na ktorom edte stdle pracu- 
jem, preto jeho v^pis zatiar nepripdjam. 

Semigrafickd moinosti displeja su 
takd bohatd, ie zadina byf probldmom 
ich vdetky pine vyuiivaf. Nakorko vdak 
je vyber znakov a mddov zobrazenia 
realizovany nastavovanim jednotlivych 
bitov v znakovom a priznakovom bajte, 
je ich ovlddanie pomerne jednoduchd 
a dd sa realizovaf ako nastavovanie 
a nulovanie programovych masiek pre 
obidva bajty. 

Uplne na zdver uvddzam edte jeden 
ndmet, urdeny pre majiterov farebnych 
televizorov. Bity D4 — D6 priznakovdho 
bajtu sa vyuiivaju na ovlddanie jasu 
zobrazenia znaku. Je vdak moind zme- 
nif zapojenie tak, ie sa vyuiiju na 
ovlddanie farby. Potrebnu upravu zapo¬ 
jenia neuvddzam, pretoie som sa touto 
otdzkou zatiar nezaoberal. 


TabuFka 6. 2. Kddy pre programova- 
nie mddov dinnosti displeja 

X0H 64 znakov na riadok, norm4lne zobrazenie 
XIH 64 znakov na riadok, blikajuci znak 
X2H 64 znakov na riadok, inverznd zobrazenie 
(biele pozadie) 

X3H 64 znakov na riadok, inverzny a blikajuci 
znak 

X4H 32 znakov na riadok, norm&lne zobrazenie 
X5H 32 znakov na riadok, blikajuci znak 
XSH 32 znakov na riadok, inverzn6 zobrazenie 
X7H 32 znakov na riadok, inverzny a blikajuci 
znak 

X8H ai XFH — zatemnenie zobrazenia 
0XH maximdlny jas znaku 


7XH minimainy jas znaku 
8XH ai FXH — navolend druhd sada 256 znakov 
v EPROM 2732 

Vysledny k6d priznakovdho bajtu sa ziskava 
linedrnou kombindciou uvedenych moinosti (X je 
rubovofnd hodnota 0 ai F). 


TabuFka 6. 3. Zapojenie konektorov 


K1, K2, K4 




Kontakt 

K1 

K2 

K4 

1 

zem 

zem 

zem 

2 

+5 V 

+5 V 

+5 V 

3 

INT 3 

zem 

— 

4 

INT 2 

—5 V 

— 

5 

INT 1 

zem 

— 

6 

A15 

+ 12 V 

— 

7 

A14 

zem 

VIDEO 1 

8 

A13 

+ 15 V 

VIDEO 2 

9 

A12 

-15. V 

V1DEQ-3 

10 

All 

PIP 

VIDEO 4 

11 

A10 

CSO (KBD) 

VIDEO 5 

12 

A9 

CSIJKBD) 

VIDEO 6 

13 

A8 

IOW 

VIDEO 7 

14 

A7 

IOR 

VIDEO 8 

15 

A6 

MW 

SYNC 

16 

A5 

MR 

— 

17 

A4 

INTA 

— 

18 

A3 

Ml 

— 

19 

A2 

ABN 

— 

20 

AI 

HLbA 

— 

21 

A0 

DEN 

— 

22 

D7 

STSTB 

— 

23 

D6 

HOLD 

_ 

24 

D5 

InTe 

_ 

25 

D4 

RES 

— 

26 

D3 

osc 

— 

27 

D2 

RTL 

— 

28 

D1 

RDY 

— 

29 

DO 

4>2TTL 

— 

30 

+5 V 

+5 V 

+5 V 

31 

zem 

zem 

zem 
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trig. Juraj KASANICKY, Steinerova 6, 040 01 KoSice 


OsobnC poCitaCe ATARI 800 XL a ATAR1130 XE su vybavenC s^riovym interfejsom, na ktory je moini pripojif 
tlaCiarne typu ATARI, pruiny disk a ini pridavne zariadenia. Problem pripojenia tlaCiarne s interfejsom 
CENTRONICS popr. IRPR (SMEP) ku ATARI je v popredi z£ujmu viacerych pouiivatePov tychto osobnych 
poCitaCov. 


NajCastejCim rieCem'm, aj pri inych 
typoch poCitaCov, je vyuiitie vornCho 
tzv. “USER PORT“ a snaha riadif 
iiadany typ interfejsu vlastnym ovieda- 
dm programom. Pokiaf sa podari 
prepisaf smernik v operaCnom sy- 
st6me ukazujuci na riadiaci program 
ttaCiame, je moinC pouiivaf systCmove 
prfkazy LPRINT, OPEN, PRINT#, LIST 
"P:“ atcf. Taketo rieCenie predpokladA 
detailnC informdcie o operaCnom sy- 
stCme a je podmienenC zavedenfm 
programu, ktory zmodifikuje operaCny 
system. Problem nastane, ak si apli- 
kadne programove vybavenie samo 
nastavuje smerniky riadiacich progra- 
mov — logicke priradenie fyzickych 
pridavnych zariadeni — alebo “tvrdo“ 
vole systemove oviedaCe. 

Technickym rieSenfm probiemu je 
rieSenie technicko programoveho vy- 
bavenia — jednoducheho adapteru, 
ktory na jednej strane emuluje interfejs 
ATARI a na strane druhej riadi interfejs 
pripejanej tlaCiarne. Takto rieSi pro¬ 
blem napr. firma GE pre svoje tlaCiarne 
kompatibilne s ATARI a COMMODORE. 

Pri pouiit! suCasnej mikropoCitaCo- 
vej suCiastkovej z&kladne ide o jedno- 
duchy emulaCny mikropoCitaC zloieny 
z niekorkych obvodov a napejany pria- 
mo z prip&janej tlaCiarne. 

Predmetom tohto prispevku je popis 
ATARI intefejsu, tak ako bol zlskany 
pokusnym meranfm, nevrh technic- 
kCho a programoveho vybavenia emu- 
laCn6ho mikropoCftaCa postaveneho na 
u nds najdostupnejCej suCiastkovej z&- 
kladni mikroprocesora MHB 8080 
s vlastnym zdrojom. Popis interfejsu 
ATARI pre pripojenre tlaCiarne je po- 
trebnC chepaf ako suhrn informed!, 
ktore sa podarilo ziskaf bez dokumen- 
tecie, len meranim pomocou oscilosko- 
pu, logickCho analyzetoru a dedukeie, 
Co by asi bolo logicke. Preto tento 
popis nie je tiplny, nerieSi v§etky moine 
chybovC stavy, ale postaCuje na spofa- 
hliv6 emulovanie ATARI serial interfej¬ 
su. VSetky Cfselne udaje vo vypise 
komunikaCnCho protokolu su v hexa- 
decimeinej sustave. 

POPIS 

“ATARI SERIAL INTERFACE** 

ATARI serial interfejs je z technic- 
k6ho hradiska asynchronny seriovy 
prenos s jednym START a jednym 
STOP bitom bez pouiitia paritneho 
bitu. Interfejs pracuje v logike TTL na 
kretku vzdialenosf vysokou prenoso- 
vou rychlosfou 19200 baudov. 
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d) ACK 41 — tladiareft potvrdf prijem 

e) SBLK 43 — po tomto znaku tladiareft 
vySle svoje stavovd hldsenie. 

—Datovy blok 

Datovy blok je §tandardne dlhy 40 
znakov a je doplneny 41. znakom, do je 
opdf kontrolnd suma. ATARI nevySle 
nikdy datovy blok inej dfeky aj keby mal 
tento obsahovat do len jeden platny 
znak. Dfika datovdho bloku je urdend 
parametrom v operadnom systdme. 

V datovom bloku md vynimodnd 
postavenie znak 9B, ktory je moind 
chdpaf ako znak ukondujuci ddta 
— EOT resp. EOF — nakorko sa nlm 
doplni datovy blok do definovanej dliky 
(40) pri prlkaze CLOSE. Prikaz CLOSE 
spdsobf vystup beindho ddtovdho blo¬ 
ku, ktordho obsahom je zbytok vyrov- 
ndvajucej pamSte doplneny resp. 
ukonden^ znakom 9B. Riadiaci signdl 
CMD je aktfvny pri vysielanl riadiaceho 
prikazovdho bloku. 

Grafick& zn&zornenie komuni- 
kadn&ho protokolu 


CMD 



Obr. 3a. Interpretdcia prtkazu Open n, 
code, aux, "P“ 


CMD 



Obr. 3b. Vytladenie naplnenej vyrov- 
ndvacej pam&te resp. interpret&cia 
CLOSE 


Definovaf presnd dasovd limity, 
zndzornend na obrdzku ako At, sa mi 
nepodarilo, ale tento das je zhora 
obmedzen]/ tak, aby programovd vyba- 
venie partnerskdho mikropodftada stih- 
lo bez probldmov vyhodnotif prijatu 
informdciu a vyslaf odpovecT. Rddove 
su to ms a operadny systdm ATARI pri 
prekrodenl niektordho z tychto dasov 
hldsi chybovy oznam. 

Vynimodne dlhy je das Tp, ktory by 
bolo moind uviesf v sekunddch. Tento 
das je vyuiity na vytladenie prijatdho 
ddtovdho bloku a vyhovuje aj najpo- 
maldim tladiarfiam bez vyrovndvacfch 
pamdtf. 

Pri pohrade na takto definovany' 
interfejs tento budf dojem jednoducho- 
sti a udeinosti. Je na dkodu veci, te ho 
firma ATARI nepublikuje. Pri analyze 
jednotlivych znakov v riadiacich dtruk- 
turach je moind zistif ich vyznam. 
Z hradiska emuldcie tladiarne, ktord 
nepoznd iny stav ako READY 
a v kazdom inom pripade naruduje 
protokol, je vyznam tychto znakov 
nepodstatny az na jeden, a to je adresa. 
Z porovnania riadiacich dtruktur 
a z pokusn^ch zapojeni som urdil, te je 
vhodnd reagovaf na prvy znak ako na 
adresu, do je v pripade tladiarne 40H. 

Uplny obraz emulovandho ATARI 
interfejsu poskytuje vypis zdrojovdho 
textu ovlddacieho programu zapisa- 
ndho v assembleri 8080. 

POPIS technickEho 

VYBAVENIA ADAPT&RA 
ATARI INTERFEJSU 

Technickd vybavenie bolo navrhnutd 
na dostupnej sudiastkovej zdkladni na 
bdze mikroprocesora MHB 8080 a jeho 
podpornych obvodov. Aby bolo moind 
jednoducho zamenif centrdlny proce- 
sor za iny, napr. Z80 resp. 18085, resp. 
vyuiif univerzdlnu procesorovu dasf aj 
na riadenie podobndho interfejsu pre 


COMMODORE C 64, je technickd vyba¬ 
venie rozdelend na dve dasti: 

a) Centrdlny procesor 

b) Interfejs tladiarne a sdriovy interfejs 
ATARI 

Pouiitie pamdti EPROM 2708 a RWM 
2114 bolo vynutend ich relativne naj- 
lepdou dostupnosfou. Daleko ekono- 
mickejdie je mo2nd postavif riadiaci 
procesor na bdze 18085, pripadne MHB 
8748. Zapojenie vyuifva pre vstupno 
vystupnd operdcie adresy z pamdfo- 
vdho priestoru a adresny dekoddr 
rozderuje parndf nasledovne: 

0000 

0800 

1000 


1800 


2000 


2800 

Pri adresdch vydSIch ako 4000H sa 
aktivuju tzv. “zrkadlovd" adresnd prie- 
story. Vdetky riadiace signdly, potrebnd 
na ovlddanie interfejsu su vyvedend na 
30 kontaktovy konektor FRB a plodny 
spoj je riedeny tak, aby sa signdly na 
oboch plodnych spojoch dostali na 
odpovedajuce si kontakty, do ufahduje 
ich spojenie. 

Doska interfejsu obsahuje progra- 
movaterny ditad 8253, aby bolo mo2nd 
jednoducho vydelif frekvenciu 
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19 200x16 pre USART 8251 z O^TTL. 
Pou2itie tohto obvodu je mozne ocenif. 
ak je potrebnC pripojif ku adaptCru 
seriovu tlaCiareft a riadiaci program 
musi prepinaf prenosovu rychlosf 
z 19 200 na 200, resp. 300 baudov. Pre 
ufiely napojenia sCriovych tlaCiarni je 
technickC vybavenie interfejsu doplne- 
n6 jednoduchym prepinaCom na hrad- 
I6ch 7400 s vyu2itim programovo 
ovladanych vystupov 8251 RTS a CTS. 
Uvedeny riadiaci program nerieSi pri- 
pojenie sCriovej tlaCiarne, a v pripade 
potreby ho je moin6 modifikovaf. 

Ovl&danie paraielnych tlaCiarni s in- 
terfejsom IRPR/CENTRONICS apod, 
riadiaci program zabezpeCuje pro- 
strednlctvom programovateFnCho obvo¬ 
du MHB8255. TechnickC rie§enie 
poskytuje 8 d&tovych tfodiCov, 4 riadia- 
ce a 4 stavovC vodiCe. Ostciva e§te 
nepouiity port B. 

Riadiaci program, uvedeny v prilohe, 
je pisany pre interfejs IRPR, preto su 
signify oznaCen§ nazv ami tohto inter¬ 
fejsu. Signal DAT/DAt umoiftuje jed¬ 
noduchym nastavenim potenci&lu 
log. 0 resp. log. 1 riadif polaritu vy- 
stupnych dcit. V&CSina tlaCiarni umoz- 
fiuje nastavif polaritu prepfnaCom 6i 
prepojkou, ale pokiar tomu tak nie je, 
napr. CONSUL 2111, je potrebnC menif 
riadiaci program, Co spdsobi probICmy 
ak je ui adapter vyrobeny a oiiveny pre 
iny typ tlaCiarne. Podobne v pripade, 2e 
vznikne problem polarity riadiaceho 
sign&lu, su na ploSnom spoji interfejsu 
dve rezervnC pozicie pre Tubovorny 14 
resp. 16 vyvodovy integrovany obvod 
so Ctandardnym napdjanim, Co by malo 
staCif v pripade jednoduchych uprav 
v zapojeni interfejsu. 

PodrobnejCf popis technickCho vyba- 
venia nie je potrebny, nakofko ide 
o zndme a Casto publikovanC zapojenie 
Ctandardnych suCiastok. 

POPIS RIADIACEHO 
PROQRAMU 

Riadiaci program je moinC logicky 
rozdelif na dve Casti podTa typu pouii- 
tej tlaCiarne: 

a) technicky nez&vislu, 

b) technicky z&vislu. 

Nez&vislu Cast riadiaceho programu 
tvori inicializ£cia programovaternych 
obvodov a emulovanie ATARI interfejsu 
pomocou MHB8251. 

PodFa typu pouiitCho interfejsu je 
potrebnC modifikovaf podprogram 
TLCZNK — tlaC jeden znak na tlaCia- 
rert. Tento riadiaci program vyhovuje 
vaCSine tlaCiarni dostupnych pre uiiva- 
tefov ATARI u n£s. V pripade potreby je 
v pamBfovom priestore EPROM dosta- 
tok vornCho miesta, aby bolo moinC 
programovymi prostriedkami riadif aj 
iny typ zloiitejSich interfejsov. 


Riadiaci program pre atari interface 


; 

Kas - 

•87 


; 

priradenie 


CWTM 

EQU 

1803H 

adr.cw 8253 

TIMO 

EQU 

1800H 

; adr.pre TIMO 

CUSART 

EQU 

1001H 

; CW 8251 

DUSART 

EQU 

1000H 

; dat.reg.8251 

CWPIO 

EQU 

2003H 

; CW 8255 

PA 

EQU 

2000H 

; adr. port A 
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Obr. 4. Obrazce ploSnych spojov dosky centrdlneho procesora X601 


PB 

EQU 

2001H ; 

adr. port B 

STA 

CWTM 


PC 

EQU 

2002H ; 

adr. port C 

LX I 

H.7 

; 19200x16 hz 

PCI 

EQU 

2003H ; 

bit.oper.PC 

MOV 

A.L 






STA 

TIMO 



.phase 

0 


MOV 

A.H 






STA 

TIMO 

: CLK delene 7 


LX I 

SP.0B00H; 

zasobnik 








; 8251 




inicializacia obvodov 

-- 







MV I 

A.4EH 

; 8 b./l stop 

; 8253 






no par. 

;- 




STA 

CUSART 






MV I 

A,5 

; RxE / TxE 


MV I 

A.36H ; 

TIMO/MOD 3 

STA 

CUSART 











READT: 





CALL 

WCMD 

; caka j na CMD 


MV I 

B. 5 



LXI 

H.CMDBL 

; 5 riad.znakov 


CALL 

DATA 

; preber data 


CALL 

WNCMD 

; koniec cmd ? 


LDA 

CMDBL 



CPI 

40H 

; adr.tlaciarne 


JNZ 

START 

; ina adresa 


CALL 

ACK 

; moja adresa 




: potvrdim 


LDA 

CMDBL+1 

: operacia 


CPI 

53H 

; open ? 


JNZ 

DATBL 

; nie tak data 


MV I 

B, 6 

; ak open 




vysli status 


LXI 

H.ODP 

; z tab.odpoved 

LC: 





MOV 

C.M 



CALL 

VZNK 

: znak do atari 


I NX 

H 



OCR 

B 



JNZ 

LC 



JMP 

START ; 

; ukonceny open 


prijem dat. bloku v dlzke 40 znakov 
+ kontrolna suma do vyrovn. pamate 


DATBL: 


LXI 

H.BUFF 


MV I 

B ,41 

: dlzka bloku 

CALL 

DATA 


CALL 

ACK' 

; potvrdenie 


prevzatia 


vytlac prijate data na tlaciaren 


LXI 

H.BUFF 


MV I 

B.40 


CALL 

TLC 

; vytlaci data 

CALL 

ACK 

: potvrdi sa 
ukoncenie oper 

JMP 

START 


podprogrami 


citaj 

jeden znak 

z atari 


A-citany znak 


CZNK: 

LDA CUSART 

ANI 2 ; prisiel znak ? 

JZ CZNK 

LDA DUSART 

RET 

; zapis znak do atari 


C-znak 

VZNK: 

LDA CUSART 

RRC ; vysielac rdy ? 

JNC VZNK 

MOV A,C 

STA DUSART 

RET 


cakaj na CMD signal 


WCMD: 

LDA CUSART 

RLC 
RC 

ANI 2 

JZ WCMD 

LDA DUSART 

JMP WCMD 

cakaj na koniec CMD 


WNCMD: 

LDA CUSART 

RLC 
RNC 

JMP WNCMD 

; citaj datovy blok 


HL-adr.vyrov.pamate 
B-pocet znakov 


; CMD je aktivny 
; prijimac rdy ? 

; uvolni prijim. 


. ! ■_■ _ I*_! I_ 


A C 


II 































































































































DATA: 


CALL CZNK 

MOV M,A 

INX H 

DCR B 

RZ 

JMP DATA 

vysli ACK do atari 


ACK: 

MV I C.41H : kod ACK 

CALL VZNK 

RET 


Tato cast programu je premenliva podia 
typu pripojenej tlaciarne.Zmenou 
podprogramu TLC alebo TLCZN je mozne 
menit interface. 




vysli data na tlaciaren 


HL-ADR.vyr.paraate 
B-pocet znakov 


' 

MOV 

MOV 

CPI 

JZ 

CALL 

INX 

DCR 

JNZ 

RET 

C.M 

A.C 

9BH 

ETLC 

TLCZN 

H 

B 

TLC 

ukoncovaci 
znak dat 
komec dat 

: tlac znak 

ETLC: 





MV 1 

C.OAH 

; kod pre LF 


CALL 

TLCZN 



MV I 

C.ODH 

: kod pre CR 


CALL 

TLCZN 



RET 




tlac jeden znak 



C-znak 




/ I RPR 

interface 

/ 

TLCZN: 





LDA 

PC 



AN1 

1 

: AC-0 / rdy ? 


JNZ 

TLCZN 



LDA 

PC 

; prepojka 




polarity dat 


AN I 

2 

: data alebo 




negovane data 


JNZ 

TL1 



MOV 

A.C 



CMA 


: mverzia dat 


JMP 

TL2 


TL1: 

MOV 

A.C 


TL2 : 

STA 

PA 

; data na interf 


MV I 

A.OFH 

; PC7-strob dat 




SC / 


STA 

PCI 


Jl: 

LDA 

PC 



AN I 

1 

: AC-1 




potvrd.od tlac 


JZ 

Jl 

; cakaj na AC 


MV I 

A.OEH 

: zhod SC strob 


STA 

PCI 


J2 : 

LDA 

PC 

; cakaj na AC-0 


AN I 

1 

: interface rdy 


JNZ 

J2 



RET 




tabulky 


ODP : 

DB 

43H.80H. 

4EH.1FH.0.0EDH 


.dephase 



org 

800h 

: EWM priestor. 

CMDBL: 





DS 

5 

; prikaz.blok 

BUFF: 

DS 

41 

; prijatie dat 


end 



Obr. 6. Rozloiente sudiastok na dosk&ch procesora a interfejsov X601 a X602 
(na doske procesora nutno doplnif rezistor R3 z+5 Vna vyvod 6. 6. IO 3205) 


zAver 


Zoznam sudiastok 


Zapojenie, riadiaci program, ako aj 
dosky ploSnych spojov, boli pouzit6 pre 
stavbu funk5n6ho vzoru, ktor6ho spo- 
TahlivA Sinnosf bola overovanA na 
zapojeni ATARI 130XE a D100. TlaCovo 
orientovan6 programy ako SPEED- 
SCRIPT pouilvali tlafciareft D100 ako 
ATARI tlaCiareft. 


a) lntegrovan6 obvody 


MH7400 

1 ks 

c) Kondenz&tory 




MH7405 

2 ks 


MHB8080 

1 ks 

KR580VI53 (8253) 

1 ks ZSSR 

10 pF keramicky 

1 ks 

MH8228 

1 ks 


64 pF keramicky 

9 ks (bypass) 

MH8224 

1 ks 

b) Rezistory 


20 pF elektrolyt. 

1 ks 

MH3205 

1 ks 

1 kfl 

2 ks 


MHB2114 

2 ks 

15 kn 

1 ks 

d) in6 


MHB2708 

1 ks 

3,2 kfl 

1 ks 


MHB8251 

1 ks 

220 n 

4ks 

dioda KA201 

1 ks 

MHB8255 

1 ks 

3300 

4ks 

KryStdl 18,432 MHz 

1 ks 












































Ing. Ate$ Podrouiek, BudovatetO 2743, 40747 Vamsdorf 


Z^kladni technick& udaje: 

M&fenf odporu: 4 rozsahy, od 1 Q 
do 30 MQ 

M&fenf kapacity: 5 rozsahu, od 10 pF 
do 80 jiF 

M&fenf toploty: 1 rozsah, od 0°C do 
100° C (v kapalinS). 

Mifenf odporu 

Pro velikost pfevodu prevodnfku 
DIG1 2 platf podie [1] vztah: 

P = 65 535 — 2048 . K . R (1) 


kde K = k.C (k=1,16 bylo zji§t£no expe- 
rimentAInd pro dan6 zapojenf 
MK01 podie obr. 2), R je odpor v 
kO a C je kapacita v jiF vn$j§fho Caso- 
'vaciho obvodu. Nezndmy odpor rezi- 
storu R x v kQ se vypodtA ze vztahu (2), 
kde Cn je kapacita kondenz&toru (vCet- 


n6 vlastnf kapacity pffpravku) volend 
pFepfnaCem rozsahu. S6riovy rezistor 
R3 = 0,33 kQ je na za54tku mfifenf kali- 
brovdn (promdnn& R9). 

Rx - (65 535 — P)/(2375,68 . C n )-0.33 

( 2 ) 

Pfevod P je snfm&n 10x a do vzorce 
se dosazuje jeho prOm&m£ hodnota. V 
tab. 1 jsou informativnf udaje pro toto 
mdfenf — rozsah 6 ai 9. 

Mfcfenf kapacity 

Pro hledanou kapacitu kondenzdtoru 
v mF odvodfme ze vzorce (1), ie 

C K «(65 535 — P)/(2375,68 . R„) (3) 

kde R n je celkovy odpor rezistoru (vCet- 
n6 s6riov6ho odporu R3, ktery je i zde 
kalibrov&n). Vlastnf kapacita pffpravku 
je pfibliing 200 pF. informativnf udaje 
pro toto mSfeni jsou v tab. 1, rozsah 1 


ai 5. Teoreticky moinou rozli&ovacf 
schopnost ud6v& poslednf sloupec ta- 
bulky. 


Tab. 1. Mgfenf kapacity a odporu 


rozsah 



pF/j. 

pfevodu 

mnm 

470 

0,01 ai 5.9 

1 

n 

100 

5.9 ai 275 

KM 

MM 

10 

275 a2 2670 

K9H 

MM 

1 

2670 ai 21.10 s 


5 

0,1 

21.10 s 82 84.10 s 



CnfnF] 

mSfony odpor 
R,fO] 

ktyj. 

pfevodu 

6 

10 s 

1 ai 27 

0.4 


100 

27 ai 276 

42 


10 

276 ai 2760 

42.0 


1 

2760 ai 27600 
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M&feni teploty 

Pro mgfenf teploty byl jako snfmag 
zvolen na trhu dostupny perligkovy ter- 
mistor 13NR15 (odpor R 25 = 10 Cl ai 30 
kfi materiglovg konstanta B = 2800 ai 
3600 K, barevng oznagenf — gemg a 
modrg tegka, vykonovg citlivost neu- 
dgna). Pro pfevodnik DIGI 2 by byl 
vhodngjgf termistor 14NR15 s v§t§im 
odporem R 25 (30 Q ai 100 kn)[2]. Zgvi- 
slost odporu termistoru na teplotg 
9 je dgna vztahem 



R R 25 .exp B. (1/298-1/(273 + 9)^ ^ Obr. 1. Schema pffpravku na m&reni R, C, 9 


Mgffme tedy opSt odpor. Z obr. 1 
je patrng pfipojenf termistoru k pff¬ 
pravku. V sgrii s termistorem je rezistor 
R 6 , kter^m zmengujeme jeho v^kono- 
vou ztrgtu a zgroveft optimalizujeme ve- 
likost pfevodu P v souCinnosti s gaso- 
vacfm kondenzgtorem Cl pfevodnfku 
DIGI 2. Ten je pfipojen sekcf pfepfnage 
rozsahu Pf*1c v poloze 11. Vykonovg 
ztrgta je mengf nei 3 mW, tj. mgn§ nei 
10 % z maximglnfho pffpustngho zatfie- 
nf termistoru t 6 to fady. Pro mgfenf tep¬ 
loty v kapaling to postaguje pro dosa- 
ienf termoelektrickgho reiimu. Neli- 
negrnf zgvislost odporu termistoru na 
tepiotg je aproximovgna logaritmickou 
regresf: 

9 = a + b . In P ■- (5), 


kde a, b jsou soudinitele zfskang re¬ 
gresf. Pracovnf rozsah 0 ai 100°C byl 
rozd&len do 6 -ti podrozsahu tak, aby 
korela&nf soudinitel byl pfibliing roven 
jedng (0,999). 

Konstrukce pftpravku 

Schema zapojenf je na ot>r. 1. Vzhled 
pffpravku (i s pfevodnfkem DIGI 2) je 
na str. 47. Zdkladem je krabigka vyro- 
beng z oboustranngho kuprextitu 
tl. 1 mm o rozmgrech 70 x 50 x 32 mm, 
spojeng pgjenfm ve styCnych ploch&ch. 
Dvangctipolohovy tffpatrovy pfepinaC 
(typ APM) je pfigroubovgn v Iev 6 polo- 
ving krabigky a drif i krycf organickg 
sklo tl. 2 mm, chr&nfcf popisovy gtftek. 


Vgtgina souggtek je pfipgjena pffmo 
na kontakty pfepfnage nebo konektorO. 
Na pfednf stgng je zgsuvka konektoru 
DIN 5/180. Je pfipgjena po obvodu 
pffruby ke stgng krabigky. Na zadnf 
stgng je pfilepena konektorovg zgsuv- 
ka WK46515. Ve voingm prostoru vpra- 
vo nahofe je pfipevngn mikrosptnag 
B593, ktery se pouifvg ke katibraci 
sgriovgho rezistoru R 6 pfi mgfenf teplo¬ 
ty. 

Pro mgfenf odporu a kapacity se 
pouifvg drigk mgfenych souggstek, 
ktery je k pffpravku pfipojen tfiiilovym 
plochym ohebnym vodifiem, zakonge- 
nym zgstrgkou konektoru DIN. Mgreng 
souggstky se upfnajf do upravenych 
krokosvorek (rozteg 20 mm). Vodige 

































jsou s krokosvorkami spojeny pdjenim. 
Horni kryci destiCka je 162 z organic- 
kdho skla o tl. 5 mm. 

Pred montdii je tfeba souCdstky 
presn§ zmdfit (R n , C n ). Usnadni se tfm 
prdce pfi kalibraci pfipravku. Rezistor 
R7 nahrazuje chybdjici potenciometr 
P2 (obr. 2). Rezistor R1 je drdtovd 
spojka. Spojeni S6 a S7 na konektoru 
WK nahrazuje chybdjici mikrospinaC 
z hledddku digitizdru. Pfed pfipojenfm 
pfipravku k DIG12 zkontrolujeme zapo- 
jeni konektoru WK. Musi souhlasit 
s protikusem. Jeho Cdsti nejsou zajiS- 
t6ny proti pootoCeni. Protoie otodeny 
konektor nebo nepfipojeny pfipravek 
nemohou zpusobit havdrii ani progra- 
mu ani pfevodniku, postadi si pamato- 
vat, ze ndpisy TESLA na konektoru 
patfi napf. k sob§. 

Programovg vybavenl 

Program je dostateCn6 vybaven ko- 
mentdfem. Md dvd 6dsti: BASIC 
a strojovy k6d, ve kterdm je podpro- 
gram pro obsluhu programovatelndho 
Citade pfevodniku DIG! 2. Program je 
dialogem mezi uiivatelem a poCitaCem. 
Pfi sprdvndm plndni pokynu, pokud 
ovSem neni pfepinaC rozsahu v jind 
poloze nei je zaddno, dojde ke sprdv- 
ndmu mdfeni. Po pfedteni krdtkdho 
komentdfe se objevi MENU, umo2fiujtci 
dal§i volbu. Pfi mdfeni odporu a kapa- 
city je nutnd po kalibraci zadat rozsah. 
Pfi jeho chybndm zaddni, chybnd kali¬ 
braci nebo pfi stisku M, skodi bdh 
programu opdt na MENU. Pfi mdfeni 
teploty se rozsah voli automaticky. I zde 
se provddi kalibrace, po kterd je mo2nd 
zadat korekci teploty, aby bylo dosaie- 
no souhlasu s teplomdrem. 

—* Pfi olivovdni pfipravku je tfeba 
zmdnit hodnoty C„ od d. f. 1428 a R n od 
6 . f. 1528 podle vysledku kalibrace. 
Podobnd je tfeba upravit regresni 
funkce (podprogram d. f. 8000) a 
hranice pod rozsahu v podminkdch od 
d. f. 1080. 

Pfetedeni obsahu programovdho 
ditade 8253 pfi mdfeni odporu a kapa- 
city je hliddno testem jeho vystupu 
OUT 0 (ditad CO). Pfi vynulovdni jeho 
obsahu se zde objevi log. 1, kterd je 
zjidtdna porovndnim s maskou 7FH. V 
pfipadd shody pokraduje program vy- 
nulovdnim registrovdho pdru HL a tato 
nuiovd hodnota se vraci do BASICu. To 
je zaregistrovdno v podprogramu „roz- 
sah" a na obrazovce se objevi pokyn 
„Zvol vdtdi rozsah". Naopak, pokud je 

pfevod velky (ditad je v Cinnosti krdtkou 
dobu a rozdil 65 535 — P je maly), je 
htddeno „Zvol mendf rozsah", tak2e 
prakticky nelze mdfit dpatnd. 

Kalibrace a ofiveni pfipravku 

Jak jii bylo dfive uvedeno, je pro 
urychleni sefizeni pfipravku vhodnd 
pfesnd zmdfit R„ a C„. Odpor sdriovych 
rezistoru se zjiSfuje programovd pri 
ka2ddm mdfeni. Kalibrace rezistoru R3 
pfevodniku se provede zkratovdnfm 
svorek R x . Jeho odpor se vypodftd ze 
vzorce (2) bez odedteni hodnoty 0,33 
kn (tj. pfibliiny odpor kalibrovandho 
rezistoru). Podobnd se vyhiedd i sku- 
tedny odpor kombinace R3 + R6 pfi 
mdfeni teplot K doladdni pfipravku na 
vSech rozsazich byly pouiity normdly. 
Jejich hodnoty jsou voleny tak, 2e se 
mdfeni pfekryvd na jednotlivych rozsa¬ 
zich. Tim je zajiStdno i vzdjemnd porov- 
ndnf jednotlivych sousednich rozsahu. 


Vftpis programu „Mdfeni R, C, 0“ s DIGI2 


• CLS 

4 PRINT'MERICI PRIPRAVEK* V 

8 PRINTSGOSUB26003REH LEGENDA 
10 GOSUB290®:CLS:G0SUB2630 
12 6OSUB29003CLS:6OSUB2650 
14 GOSUB29003CLSs GOSUB2700 

14 RA=26:GOSUB3000sG0SUB21003REMF00TRH;TEXT 
20 GOSUB2000 :REM Cekej 
180 DIMQ(20) 

182 DEFFNZ <X t O) = 1NT <X»10“D+ .5) /10"'D 
194 REM*»»»*»»»«»**«**«»»*»»»»»* 

196 REM MENU 
198 

200 CLS:PRINT«,5,0"M E N U" 

210 PRINT610,0"1—Kereni odporu" 

220 PRINT"2-Mereni kapacity' 

230 PRINT"3—Mereni teploty" 

240 PRINT'4-Konec progranu" 

245 PRINT'5-Nahrani progranu" 

250 GOSUB2050!REM VOLBA 

300 ONVAL(V«> G0SUB1400,1500,1000,9999,49990 
310 GOTO200 

1000 REM«»««**«»»*»»«*«»*»«»«*«* 

1002 REM MERENI TEPLOTY 

1004 REMttOVJHHtKIHt*************** 

1006 CLSSPRINT"MERENI TEPLOTY" 

1008 PRINT'Pouzity sniaac - 13NR1S. 

1010 PRINT'Rozsah teploty - 0 AZ 100 st.C v kapaline." 

1012 PRINT’K prevodniku DIGI2 pripoj pri-pravek na Mereni teploty." 

1014 PRINTtPRINT'Nyni provedeMe kalibraci prevodu' 

1022 PRINT'TerMistor zkratujeee Mikrospi- cee, ktery podrzinte a soucas 
1024 PRINT'ne stiskeMe tlacitko."3GOSUB2000 " 

1024 PRINT&12,0SPC(255)SPC(255) 

1028 GOSUB7000SREM KALIBRACE 

1030 RA= 24sG0SUB3000:GOSUB2110s6OSUB2000 

1034 PRINT&12,0SPC(2551}SPC(255); 

1034 RA=14SGOSUB3000:REM POOTRZENI 
1038 RA=24:GOSUB3000:AP*0sTl°0 
1044 GOSUBS000 s REM MERENI 
1048 R1=HEX<FFFF>-Q-R:T=0 

1050 REM PRINT«.23,0"Rl="FNZ{Rl,0>623 f 10"P>Q="FNZ(Q,0>"R=*FNZ<R t 0) 

1052 IFR1<0 OR Rl>65535-RTHENPRINT627,0~MiMO rozsah -> MENU":GOSUB2000:GOTO200 
1070 IF A0="M"THEN200 
1078 REM 0 az 14 

1080 IFR1>37000 AND R1<>59400THEN 8010 
1082 REM 14 az 30 

1084 IFR1)18000 AND R1<-37000THEN 8020 
1084 REM 30 az 40 

1088 IFR1>11500 AND R1< =18000THEN8030 
1090 REM 40 az 50 

1092 IFR1>7900 AND R1<=11500THEN8040 
1094 REM 50 az 70 

1096 IFR1>4000 AND R1<=7900THEN 8050 
1098 REM 70 az 100 

1100 IFR1>1532 AND R1<=4000THEN 8060 

1186 GOSUB2200SREH TEXT1 

1187 PRINT612,0RO*;SPC(5> 

1188 PRINT616,0'Merena teplota"SPRINT 
1190 PRINT"T«"}TAB<9> "stupno Celsia* 

1192 T=T+TlsT*FNZ<T,l> 

1194 PRINT620,2T 

1196 WAIT (20) sF"RINT420,2SPC (7) 

1198 IF AP=1 THEN1210 
1200 AP=1SPRINT420,2T626,05 

1202 INPUT'Korekce teploty";Tl:PRINT426,21"st.Celsia" 

1210 IFINKEY*=*'THEN1044 

1212 GOTO200 s REM MENU 

1400 REM«*»»»**»**»«*********»s* 

1402 REM MERENI ODPORU 

1404 REM****s*s*«s***»*********« 

1406 CLSSPRINT62,0"MERENI ODPORU" 

1408 PRINT"K prevodniku DIGI2 pripoj pri-pravek na nereni odporu a kapa -city 

1409 PRINT'Meri odpor v intervalu 1 Oh* - 30 MOhe" 

1410 PRIMT'Po pripojeni pokrocuj stisken tlacitka " 

1412 GOSUB20003G0SUB71003 REM KALIBRACE R 6 C 

1414 PRINT610,0SPC<255>;SPC<255>;SPC(128> 

1416 RA=13s6OSUB30003RA=24!GO5UB3000sGOSUB210®=GQSUB2000 

1418 IFA**"4"ORA6='M"THEN200 

1420 RA=17sGOSUB3000sIFINKEY*='M"THEN200 

1422 PRINT415,0;sINPUT'Zvol rozsah (6-9)~;Bt 

1423 IFB»<"6" OR BS >"9"THEN200 

1424 GO5UB5000 3 GOSUB6000 

1426 R1=HEX<FFFF)-QsR£M PRINT623,0'Rl="Rl}423,14"Prevod="O 

1428 1FB*="6"THENC=.8430=2 

1430 IFB*="7'THENC=.130=1 

1432 1FB»="8"THENC=.965E-23D=1 

1434 IFB0="9"THENC=1.03E-3sD=0 

1436 REMIFB*="10"THENC=3E-3 

1438 G0SUB2100 3GOSUB2200 

1450 Rl=Rl/2375.68/C-RV 

1452 PRINT619,0*Mereny odpor" 

1454 IF R1>=1 AND R1<1000THEN1480 

1456 IF RD1000THEN1472 

1458 Rl=FNZ<Rl,4>«1000 

1460 IF R1<0 THENR1=0 

1464 GOSUB40003REM ohm 

1466 G0TO1482 

1472 Rl=Rl/1000sRl=FNZ(Rl,2> 

1474 GOSUB4100iREM aegooha 
1476 G0TD1482 

1480 PRINTi.22,0"R="622,10"kiloohau" ; sRl=FNZ<R1 ,D) 

1482 PRINT622,2R1; 

1490 GOSUB2000sPRINT622,2SPC<30>; 

1492 1FA*="M*THEN200 
1494 G0T01418 

1498 GOSUB2100sGOSUB2300sGOSUB2000sPRINT621,2SPC<30>;SG0T01418 
1500 REM tMMHHMHHHHHHHtS********* 

1502 REM MERENI KAPACITY 

1504 REM •**•«•••»••••*•»*«««*«* 

1505 REM MERENI KAPACITY 

1506 CLS3PRINT62,0"MERENI KAPACITY" 

1508 PRINT"K prevodniku DIGI2 pripoj pri-pravek na Mereni odporu a kapa -city 

1509 PRINT'Meri kapacitu v intervalu 10pF - 80 Mikrofarad" 

1510 PRINT'Po pripojeni pokracuj stiskeM tlacitka " 

1512 GOSUB20003GOSUB71003REM KALIBRACE R 6 C 

1514 PRINT610,0SPC(255>;SPC(255>;SPC<128> 

1516 RA=1316OSUB3000 s RA=24:GOSUB30003 G0SUB2100 





1518 GOSUB20«*:RErt CEKEJ 
152* IFA*=-4"THEN200 
1522 RA=1?:GOSUB30®« 

1526 PRINT&15,0;siNPUT'Zvol rozsoh (1-5)";C* 

1528 IFC*<"1* OR C*>-5'THEN2»e 
153* GOSUB5000SGOSUB6#*® 

1532 GOSUB2100:GOSUB220« 

1534 Rl=HEX(FFFF)-0 

1534 REM PVNT423,0"Rl="Rl}623,13*Prevod Q="0 

1538 IFC*=*1'THENR=1026:O=2 

1540 IFC*="2"THENR=103.99sB=2 

1542 IFC*»"3"THENR=10.1sD=l 

1544 IFC*«*4*THENR=.96!D=0 

1544 1FC*«-5*THENR=0!O=0 

1548 Cl=Rl/2.37548/(R+R9) —.2 

1550 PRINT419,0"Merena kapacita" 

1552 IFC1>=1 AND Cl<1000THEM1570 
1554 IFCD1000THEN1S64 
1556 C1=FNZ(C1,4)#1000 
1558 QOSUB4200 
1560 B0T01572 

1564 Cl«Cl/1000eCl«FNZ(Cl,2> 

1564 6OSUB4300 
1568 S0T01572 

1570 PRINT<k22,0"C=*&22,ll"nanofarad'5Cl*FNZ(Cl ,0) 

1572 PRINT622,2C1 

1574 GOSUB2000»PRXNT622,2SPC(30> 

1574 IFINKEY0*"M"THEN200 
1578 G0T01S26 

2000 REM**oss»s#see#s#ese#eses#s 
2002 REM CEKEJ 

2004 REMoooooooooooooooooooooooo 
2010 A0«INKEY**IFA0="THEN20I0 
2015 WAIT(10)sRETURN 
2040 RETURN 

2050 RE M o o oooooooooooooo oo oooooo 

2052 REM VOLBA 

2054 REMoooeeO**###########*#### 

2060 V0»INKEY0tIFV6»*'THEN2066 

2065 WAIT(10)(RETURN 

2100 REMeOOOOOOee*############** 

2102 REM TEXT 

2104 R£M*****************»*«»o»« 

2110 PRXNT<.27,0‘Pokracuj stiskeo tlacitko" 

2115 RETURN 

2200 REMoooooooooooooooooooooooo 

2202 REM TEXT1 

2204 REMoooooooooooooooooooooooo 

2210 P*INT629.0"HENU - prosie, padrz H"» 

2215 RETURN 

2300 REMoooooooo o ooooo o ooo o ooooo 

2302 REM TEXT2 ' . 

2304 REMoooooooooooooooooooooooo 

2310 PRINT629,0"Navrat na MENU - spatnou volbou rozsahu"; 

2315 RETURN 

2400 REMooooooooooooooooooooooo 
2402 REM TEXT 3 

2404 REMooooooooooooooooooooooo 

2404 PRINT62S,0~Zval vetsx rozsoh*:8OSUB2100>GOSUB2000 
2408 PRINT625,0SPC(20) 

2410 RETURN 

2500 REMooooooooooooooooooooooo 
2502 REM TEXT 4 

2504 REMooooooooooooooooooooooo 

2504 PRINTI»25,0'Zvol oensi rozsoh'>GOSUB2100:6OSUB2000 
2508 PRINT425,08PC(20> 

2510 RETURN 

2600 REMooooooooooooooooooooooo 
2602 REM TEXT 5 

2604 REMoooooooooooooooooooooooo 

2606 FRINT"Legenda" 

2608 PRINT'Tento prograo slouzi pro obsluhu" 

2610 PRINT"oericiho pripravku k A/D prevod-* 

2612 PRINT'niku DI 6 I 2. Pripravek uooznuje" 

2614 PRINT'oereni odporu rezistoru, kapaci-" 

2616 PRINT'ty kondenzatoru a toploty . 

2618 PRINT'Spojeni s prevodhikeo je prove 
2620 PRINT'deno konektore* UK napxsy TESLA ' 

2622 RETURN 

2630 PR INT"k sobe. Herena sOucastka se up-' 

2632 PRINT'ne do prislusnyeh krokosvorek " 

2634 PRINT'Rx nebo Cx spojenych konektoreo " 

2636 PRINT'OIN 5/180.Upnuti soucastky ousi " 

2638 PRINT'byt spolehlive.Pro oereni teplo-' 

2640 PRINT'ty je snioac pripojen tez konek-" 

2642 PRINT"tor eo DIN 5/180. Nasledujici ta~" 

2644 PRINT"bolko ukaxoje funkce prepinace. " 

2646 RETURN 

2650 REMoooooooooooooooooooooooo 
2652 REM TABULKA 

2654 REMoooooooooooooooooooooooo 
2656 PRINT' PREPINAC ROZSAHU" 

2658 PRINT62,1CHR4(15)"P" 

2660 M=2 5BOSUB2800 

2662 PRINT62,31CHR*(15) 566 ,1CMR4(15)*S" 

2664 M =6 s GOSUB2800 

2666 PRINT66,31CHR*(15)"N"j624,1CHR*(15)"K"sM=24:GOSUB2800 
2668 PRINT624,31CHR*(15)"J" 

2670 5=1JGOSUB2820!GOSUB2850 
2672 S=9!6OSUB2820sGOSUB2850 
2674 S=20s GOSUB2820 5GOSUB2850 
2476 S«31:GOSUB2820 sGOSUB2850 

2678 PRINT&4,2'Pololm"64,12"Funkce"63,22'Rozsah"45,21"od do- 
2680 PRINTi. 8 ,2"1 oz 5"47,ll"«ereni"69,ll"kapacity" 

2482 PRINT68,21'10pF 80HF" 

2684 PRINT613,2"6 az 9"612,ll“oereni"614,ll"odporu" 

2686 PRINT613.21 "10hi* 30MG";614,29"-"} 

2688 PRINT618,2" 11 *617,1l'oereni "619,11'teploty" 

2690 PRINT418,21"0—100st.C" 

2692 PRINT622,2" 12 "622,13"ze«'622,23CHR*(15)"80000" 

2698 RETURN 

2700 REMoooooooooooooooooooooooo 
2702 REM TEXT 6 

2704 REMoooooooooooooooooooooooo 


50 mikroetektronika 


2706 PRINT'Pri oereni dune veliciny je nut-" 

2708 PRINT'ne aval it rozsoh die tabolky" 

2710 PRINT'a ridit se instrukceoi. 

2712 PRINT"Kdyz presto nedojde k oereni,po-" 

2714 PRINT'citac nereagoje na stisk tlacit-" 

2716 PRINT'ka, je chybn v prxpevneni sou-" 

2718 PRINT'castky nebo je soucastka vadna." 

2720 PRINT'Pri oereni velkych hodnot soucas" 

2722 PRINT"tek je pri nevhodneo rozsahu do-" 

2724 PRINT'ba oereni delsi.Zoente rozsoh. 

2750 RETURN 

2800 REMooooooooooooooooooooooo* 

2802 REM LINKA vodorovne 

2804 REMoooooooooooooooooooooooo 

2808 FORI=2TO30SPRINT6M,ICHRS(15)"0"s NEXT 

2810 RETURN 

2820 REMoooooooooooooooooooooooo 

2822 REM LINKA svisle 1 

2824 REMoooooooooooooooooooooooo 

2828 F0RI=3T05sPRINT6I,SCHR4(15)"T"sNEXT 

2830 RETURN 

2850 REMoooooooooooooooooooooooo 

2852 REM LINKA svisle 2 

2854 REMoooooooooooooooooooooooo 

2858 F0RI=7T023spRINT6I,SCHR6(15)"T"sNEXT 

2860 RETURN 

2900 REMoooooooooooooooooooooooo 

2902 REM STRANKA 

2904 REMoooooooooooooooooooooooo 

2906 RA*26 sGOSUB3000sG0SUB2100:GQSUB2000:RETURN 

3000 REMoooooooooooooooooooooooo 

3002 REM PODTRH 

3004 REMoooooooooooooooooooooooo 

3010 FORI»0TO30!PRINT6RA,ICHR*(15)"Q":NEXT:RCTURN 
4000 REMooooooooooooooooooooooo 
4002 REM TISK VYSLEfctKU-OOPOR 1 
4004 REMooooooooooooooooooooooo < 

4004 PRIHT622,0"R='622,ll*oh«u"f 
4008 RETURN 

4100 REMooooooooooooooooooooooo 
4102 REM TISK VYSLEDKU-ODPOR 2 
4104 REMooooooooooooooooooooooo 
4104 PRINT622,0"R*"622,ll'«egaoh«u"; 

4108 RETURN 

4200 REMooooooooooooooooooooooo 
4202 REM TISK VYSLEDKU-KAPACITA1 
4204 REMooooooooooooooooooooooo 
4206 PRINT622,0"C="622,ll'pikofarad"5 
4208 RETURN 

4300 REMooooooooooooooooooooooo 
4302 REM TISK VYSLEOKU-KAPACITA2 
4304 REMoooooooo o oooooooooooooo 
4306 PRINT622,0'C=»'622,ll*«ikrofarad*5 
4308 RETURN 

5000 REMooooooooooooooooooooooo 
5002 REM HERENI 

5004 REMooooooooooooooooooooooo 

5005 REM HERENI 

5006 FORI»0TO20 
5008 Q(I)«0 
5010 NEXTI 
5012 FDRI-0TO20 

5014 Q(I)-WORD(HEX(4000),1) 

5016 NEXTI 
5050 Q=0 
5*55 FORI-1TO20 
5060 0=0*0(I) 

5062 REM PRINTQjO(I) 

5065 NEXTI 

5070 O=FNZ(O,l)/20 

5080 RETURN 

6000 REMooooooooooooooooooooooo 

6005 REM ROZSAH 

6010 REHooooooooooooooooooooooo 

6015 FORI-0TO10 

4020 IFO(I)=<1000THEN6100 

6030 IFO(I)=>6S100THEN62«0 

4040 NEXTI 

6050 RETURN 

6100 REMooooooooooooo********** 

6105 REM Maly rozsoh 

4110 REMooooooooooooooooooooooo 

6112 08SUB2400 
6114 IFV0-"1'THEN1418 

4118 IFV*-'2'THEN1526 , 

4200 REMoeooooooooo************ 

6205 REM Vtlky rozsoh 

6210 REHoooooooooooooooooooooos 

4212 GOSUB2S00 

6214 IFW*-"1'THEN1418 

6218 IFV*«'2"THEN1526 

7000 REMooooowoooooaooooooooooo 

7002 REM Kalibrace teploty 

7004 REMooooooooooooooooooooooo 

7020 GOSUB5000 

7022 R«=HEX(FFFF)~a 

7024 PRINT614,0"R=*R|614,13"Prevod 0='0 
7050 RETURN 

7100 REMooooooooooooo**#*#*#*** 

7102 REM Kalibrace R 6 C 

7104 RA*=14 * 8OSUB3000 

7106 PRINT'Kalibrace oereni R 6 C 

7108 PRINT'Zvolioe rozsoh . 6 " 

7110 PRINT'Zkratujeoe svorky R" 

7112 PRINT'Stiskneoe tlacitko a tie je ka- librace skoncena" 

7114 RA=2538OSUB3000t GOSUB2000 

7130 BOSUB3000 

7132 Rl-HEX (FFFF)-O 

7134 R9=Rl/1995.5712iR9=FNZ(R9,3) 

7134 PRINT627,0"Odpor prevodniku »r=*R9'kilooho* »»UAIT (25) 
7138 RETURN 

8002 REN PP 8 M TEPLOTA ; 

8010 RO0»'Rox»ah 0 az 14 st.C" 

8012 T=219.0097-19.931117oL86(R1)+.16 
8014 G0T01186 

8020 RO0»'Rozsah 14 az 30 st.C" 

8022 T-292.53206-26.759259oL0G(R1> 

8024 GOTO1184 













M3® RQ*=*"Rozsah 3* az 4® st.C' 

M32 T»‘25i.96686-22.595167*l.0G<Rl> 

M34 G0T01186 

M4® RO*='Rozsah 4# az 59 st.C” 

M42 T=282.75638-25.9®7®3*L0G<R1> 

M44 G0TO1186 

8*5* RO**'Rozsah 5* az 7® st.C' 

M52 T=31®.19176-28.94891«L0G<R1> 

M54 GOTO 1186 

M6® RO*«'Rozsah 7® az 1®0 st.C" 

M42 T=33®.28362-31.4®4993»L0G<R1) 

8064 G0T01186 
9999 END 

4999® REM**KM«*tHHHt»*»***«****** 

49992 REM NAHRAN1 PROGRAM!) 

49994 REM*******<hmhhh« ***•»***#*« 

49996 PRINT624,®~Prosi«, zapni sagnctofon~&26,®"a stiskni nejake tlacitko." 

49998 IFINKEY«="THEH49998 

49999 PRINT628,®'Nahrava« !' 

5®®*® CALLHEX<6®99> 

50002 PRINT624,®"Prosim, vypni sagnetafon a po 

5®004 PRINT!,26,0'kraeuj volbou z Menu. "&28,®SPC(10) ; 

5®0®6 G0SUB2®®®* CLStRUN18® 


Vypis podprogramu „M$Fenf CasovC prodlevy s 8253" 


(8253) lOI (viz 16i obr. 2), ktery 
obsahuje tfi nezCvisle pracujfcf sestup- 
n6 CitaCe. K ndmu pfibyl adresovy 
dekodSr 105, ktery vytvCFi signal CS 
pro vybCr CitaCe. Adresa je 74 ai 77H. 
Dva pouzitS CitaCe Co a 02 pracujf 
nez&visle v m6du 0, s pFeruSenim na 
konci Citeni. Vystup OUT CitaCe je po 
volbS m6du na urovni L. Po vloieni 
novC predvolby OUT zustdvd ve stejnS 
urovni a CitaC zafteji Citeni po prichodu 
H na vstup GATE. Po doCiteni na nuiu 
pfejde OUT na urovert H a zustane na 
ni, dokud registr CitaCe neni opCt 
predvolen. Vybrtr CitaCe se proved! 
adresovymi bity A1 a AO (pFedvolba 
CitaCe CO — L, L: Cl — L, H: C2 — H, L). 
Pro z&pis Ffdiciho slova (CW) jsou tyto 
bity H, H. Tvar siova CW zapisovanSho 
do registru CWR je n&sledujfci: 
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zatazuji vSechm pferuieni 

irticializuji fttat. Qf - ?!dic( slovo do stHda£e 
a odtud do £(ta£e 

slabika fFH otoahu citade do stFadad* 
naplneni ni Hi ho bajtu 

* yyssiho bajtu dftade Cft 
adresa inicializovanAio MHO z reg.C do stdadade 
nahozeni MKQ 1 

je MH3 1 jeste nahozen ? Jestliie ano, dtu log / re D7. 

a vracia se opit na dteni 07, dokud nepfectu log 1 

pokud se neditalo znovu, tak budu dist obsah ditade 

jinak jdu na nulovini rag.paru H,L 

cteni niHlho bajtu Qff 

uklidan ho do registru L 

dtenf vyiSlho bajtu C/( 

uklidam ho do registru H 

povoluji pderuieni 

a vracia se z podprogramu do BASICu 
nuluji obsah rag. paru H,l, protoie raditana hodnota je ehyb- 
na a vracia se do BASICu 


Hodnoty R„ a C n v programu jsou 
postupnC upraveny. NejpracnSjSf a £a- 
sovC nejn&roCn&jSi je kalibrace termi- 
storu. Problem je i v tom, 2e se jeho 
—viastnosti mohou Casern zmrtnit Pokud 
je k dispozici uitratermostat, ktery 
cejchovanou tepiotu umoirtuje udriet 
dostateCnC diouhou dobu, je vysledek 
kalibrace velmi dobry. Je tfeba db£t i 
na stejnou hioubku ponoru snimaCe a 
teplomCru. NAhradou za uitratermostat 
muie byt nAdri s moinostf vytApfini o 
objemu asi 51, do kterS vloifme menfif 
nAdobu se snimaCi. Rychlost ohfevu 
nebo chladnuti musi byt dostateCnS 
mate. 

Pfesnost m&Feni 

PFesnost nrteFeni je zAvislA, jak jii 
bylo uvedeno, na velikosti pfevodu. Z 
tohoto duvodu je oCetrena programovA 
volba rozsahu. Informative^ platf, ie 
CasovS prodlevS 1 ms odpovidA pFevod 
2048 jednotek (reiativni chyba asi 
0,05 %). V praxi, pFi mSreni odporu v 
porovnAni s namAFenymi hodnotami 
Cislicovym multimetrem RFT G 
1001.500, to pFedstavuje chybu men§i 
nei 1 %. PR mSfeni kapacit a odporu se 
porovnAvaly vysledky mrtFeni s pFfstro- 
jem RLC10. Byly zji§t§ny rozdfly at 
10 %. Jin6 mrtFidio neni momentanrt k 
dispozici. PFi mdFeni tepioty z4visi 
chyba na kvaiitrt kalibrace a presnosti 
aproximace. Nemusf pFekrortit 0,1 °C. 
Lze vyuiit mate tepelnb kapacity per- 
liCkov6ho termistoru (mate setrvaC- 
nost) ke siedovdni ruznych fyzikdlnich 
drtju, napF. f&zovych pFemfin tuhnou- 
cich vosku apod. 

Z4v^r 

Mrtrici pFfpravek by) postaven jako 
dopinrtk digitizbru 2 pro datei vyuiiti 
jeho pFevodniku DIGI2. N4kiady na 
jeho stavbu jsou asi 250 K£s. Mate- 


rtelovC nrtkiady na D)GI2 jsou asi 
700 K£s. Jednoduch4 konstrukce a 
dobr4 reprodukovatelnost vyroby 
umoirtujf i amaterskou stavbu. Pod- 
mfnkou pouiitf je poCItaC IQ 151 se 
standardnim vybavenim. PFipravek m4 
jednu polohu pFepfnarte neobsazenu, 
tak2e je mo2n6 pFipojit jeSte date! 
snfmaC odporovrtho nebo kapacitniho 
typu. 
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[1] Podrouiek, A.: Digitizer 2. Vam- 
sdorf, SPS 1986. 

[2] Termistory. RoCenka sdrtlovaci 
techniky. Praha, SNTL 1965. 
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ze. Amaterskrt radio 8, 9/87. 

[4] Mikroprocesor 8080 a z&kladnf 
obvody. CSVTS 1982. 


Konstrukce, stavba a oiiveni 
pFevodniku DIGI2 pro IQ 151 


Konstrukce pfevodnfku 

Konstrukce pFevodnfku DIGI2 je 
odvozena od pFedchoziho typu pFevod¬ 
niku urCerteho pro jednoduchy digitizer 
{3]. DIGI2 je sluCitelny s mechanikou 
tohoto zaFIzenl. Jeho viastnosti jsou 
!ep§{ v porovn4nf s pFedchozfm typem 
v dosaienC reprodukovatelnosti a roz- 
iiSovaci schopnosti. Ve spojenl s vy- 
iepSenou mechanikou vznikl Digitizer 2, 
jehoi popis vSak neni predmStem 
tohoto pFIsprtvku. D4ie budou pops&ny 
pouze podstatnS zmSny, nebof popis 
pFedchoziho pFevodniku by) uvefejnrtn. 

Misto programovSho rtitarte byi pou- 
iit programovatelny 6ita£ KR580VI53 


bit 

D 7 06 

D 5 04 

03 02 01 

DO 

znam 

volba iitade 

£tsn(/zBpis 

volba mddu 

cftanr 

bindrni 

deka- 

dickd 


V naSem pFfpadS pro m6d 0, binSrni 
Cfteni a zSpis/Cteni v poradi niiSi bajt 
— vy§5i bajt, jsou tvary Fidicich slov pro 
£ita£ CO — 30H, Cl — 70H a C2 — BOH. 
Obsluha CitaCe je patrnS i z vypisu 
programu ve strojovSm k6du. Adresa 
pro zdpis CW je 77H a pro £teni/z6pis 
(IN/OUT) CitaCe CO je 74H. Na vstup 
CLK jednotlivych CftaCu je pFiveden 
hodinovy kmitoCet 2048 kHz. SpouStSci 
impuls pro GATE je u CitaCe CO ziskSn 
z vystupu 3 104, zapojerteho jako 
monostabilni klopny obvod (MKO). Je¬ 
ho vstup 2 je v klidovS urovni H, cot 
zajiSfuje 1010b a rezistor R5. MKO je 
nastaven bitem DO programovrt pFes 
102, ktery musi byt aktivovSn signSlem 
C§, vytvSFenym adresovym dekodSrem 
106, je-li adresovSn 78 at 7BH. Smrtr 
toku dat obousmSrnSho oddrtlovade 
datovS sbSrnice je Fizen signSlem DC, 
ktery je vytvoFen dvrtma hradlv lQ8c . d, 
ve funkci togickSho souCinu H.IOR. PFi 
Cteni dat je DC = L. Druhy bit datovS 
sbSrnice D1 je urCen t62 pro hteCeni 
pFeteCeni CltaCe, kterS je signalizovSno 
urovni H vystupu OUT 0 v prubrthu 
Citeni. TFeti bit D2 je zde ve vyznamu 
ukonCeni CasovS prodlevy, hteSenf z vy¬ 
stupu MKO o urovni L je d4no pFes 
logicky soudet 1010a a 107a. Umoirtuje 
dalSi pokraCovSni programu bez zby- 
teCnSho CekSni. 

V pFfpadS, te pFevodnik bude vy- 
uiit pouze k mSFicimu pFipravku, lze 
vypustit 103, obvod pro o§etFeni 
mikrospinaCe a logicky souCet 
101 Oa, c a I07a lze nahradit sledova- 
Cem ze dvou invertord. 

Velikost pFevodu DIGI2 je asi 29x 
v6t§i nei pFedchoziho pFevodniku. Pro¬ 
to doSlo i ke zmenSeni kapacity Casova- 
ciho kondenzStoru MKO. Reiativni chy¬ 
ba pFevodu je asi 0,05%. Velikost 
pfevodu je umSrnS rozdilu hodnoty 
pFedvolby CitaCe (FFFFH = 65 535 a ob- 
sahu CitaCe po doCiteni. 

Stavba pFevodniku 

Protoie se v amatSrskych podmin- 
k4ch pfedpoktedS jednorrtzovC kusovS 
vyroba a vyroba oboustrannych desek 
ploCnych spoju je obtibiC, bylo pouiito 
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Vypis strojovdho kMu spojovacfho programu 
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technologic ovfjenych spoju drdtem se 
samopdjitelnou izofacf o prOmdru 
0,1 mm. Po rozmfstdnf souddstek na 
desku (mute byt uiito univerzdlnf des¬ 
ky, umoinf lepdf upevndni souddstek) 
z libovolndho izoladnfho materidlu ne- 
podldhajfcfho tepelnd degradaci o roz- 
mdrech 135x92 mm se souddstky pro- 
poji pffmo podle schdmatu. Idedlni 
k tomu udelu je stavebnice Univerzal, 
kterou vyrdbf ZPA Novy Bor a do §kol 
doddvd n. p. Komenium. Souddstf tdto 
stavebnice je ovfjftko. Pdjecf body tvofi 
zpravidla vyvody iO nebo jejich patic. 
Ovijftkem vytvorfme v pdjecim bodd 
dva ai tfi zdvity, drdt utahujeme 
a pokrafiujeme k daISfmu spojovandmu 
bodu, kde po ovinutf drdt pferuSime 
pomocnym ndstrojem, ktery slouif i pro 
vedeni drdtu (drifme je] v levd ruce). 
Pdjenf je tfeba provdddt Cistd s mini- 
mdfnd nutnym mnoistvfm pdjky a pff- 
mdfenym mnoistvfm tavidia. Spoje 
vedeme pffmo, pedlivd a pozomd, 
nesmf dojft k nekontrolovatelndm u po- 
Skozenf izolace tepiem pdjecfho hrotu. 
Spojenf pfevodnfku s mechanikou ne¬ 
bo mdficfm pffpravkem je provedeno 
ohebnym plochym vodidem 8x0,3 nebo 
8x0,5, ktery je veden v drdice 
11x2,8 mm na spojovacf desce a na 
druhd strand je zakonden konektorem 
WK 46240 se 12-ti vyvody. 

Oihrovdnf pfevodnfku 

Pfed oiivovdnfm se vyplatf pedlivd 
kontroia vSech spoju. Je to obtfind, ale 
vyplatf se to. Teprve potom pfipojfme 
desku ke zdroji. Vzorek by! oiivovdn 
iaboratornfm zdrojem BS525. Kontrolu- 
jeme zejmdna napdtf stabilizdtoru, kte- 
rd md byt asi 5 V. Odbdr pfevodnfku by 
mdi byt okolo 250 mA (Ucc). Aby 
nevznikty ubytky napdtf v napdjenf IO, 
je tfeba tyto spoje ndleiitd zesflit 
(ndkolik prufezQ nebo pouift tlustdf 
vodit). Do vypnutdho podftade zasune- 
me vynos, do ndho pfevodnfk (nezakry- 
tovany), zapneme podltad a monitor 
a sledujeme jeho obrazovku. Pokud se 
objevf za pfftomnosti modulu BASIC 
6 a VIDE032 zndmd Basic — ready, je 
v§e zatfm v pofddku. Pokud se objevf 
smdsice znakO po celd obrazovce, 
podftad vypneme a odstranfme zkrat na 
adresovd sbdrnici. Pokradujeme na- 
hrdnfm programu. Ten se sklddd ze tff 
ddsti a jeho nevyhodou je, ie je pfflid 
diouhy. V tdto fdzi potfebujeme pouze 
ddst z pfflohy 2 a k tomu pfiddme 
v BASICu podprogram „Mdfenf u fddek 
5000. Na fddku 5062 zrudime REM a na 
fddek 5080 vloifme mfsto RETURN 
napf. WAIT (50): GO TO 5000. Je udelnd 
si t tento krdtky program spotu 
s programem ve strojovdm kddu od 
adresy 4000 nahrdt. Zajistfme se tak 
proti jeho ztrdtd pfi zacyklenf podftade. 
Pokud se po odstartovdnf programu 
objevuji na obrazovce snfmand pfevo- 
dy (je pochopitelnd nutnd mft pfipojenu 
mechaniku nebo mdficf pffpravek 
— pozor na dpatnd pfipojeny nebo 
otodeny konektor WK), je v§le v pofdd¬ 
ku. V pffpadd, ie pfevodnfk pracuje 
dpatnd, kontrolujeme jednotlivd sig- 
ndly, podfnaje CS pro 101 a 102, 
spoudtdcf impuls pro MKO nebo GATE 
ditade, stav OUT ditade apod. Ke 
kontrole stadf dkolni togickd sonda 
BK 121. Po oiivenf zabudujeme desku 
do modulovd krabidky, kterou opatffme 
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dtftkem DIGI2 orientovanym stejnd jako 
na ostatnfch modulech IO 151 (nesmf 
dojft k opadndmu zasunutf do podfta¬ 
de). Nynf je moind vloiit do podftade 
cely program. Spojovacf ddst progra¬ 
mu (viz vypis) slouif pro jeho na- 
hrdvdnf. Obsahuje hlavidku programu 
a tepiy start BASICu. Program Ize cely 
nahrdt stiskem “5“ programovdho ME¬ 
NU. Do podftade se pak vklddd zndmym 
postupem pro nahrdvdnf v monitoru. 

Pfevodnfk DIGI2 je souddstf stdle se 
rozdifujfcf stavebnice. Ve spojenf 


IntegrovanA obvody 


IO 1 

KR 580 VI53 (8253) 

10 2 

MH 3216 

IO 3.4 

E 555 (NE 555) 

10 5,6 

MH 7430 

10 7. 8 

MH 7400 

10 9, 10 

MH 7404 

10 11 

MAA 723 

flBstetory TR 151 (161) 

R1, 2 

3.9 kn 

R3, 4 

3300 

R5, 6 

470 0 

R7, 8, 9 

3,9 kO 

RIO 

12 0 

R11 

1,8 kQ 

R12 

6,8 kO 


s vylepSenou mechanikou vznikne Digi- 
tizdr 2. Jeho programovd vybavenf je 
dnes jii dost rozsdhld a rovndi se 
neustdle rozdifuje, takie se nevyplatf 
program rudnd vklddat z vypisu, ale 
nahrdt jej pffmo na kazetu nebo diske- 
tu. To platf i pro mdficf pffpngvek. 
Dokumentace a programovd vybavenf 
je k dispozici na SPS ve Varnsdorfu, 
kde vdm rddi pomohou radou i skut- 
kem, ovdem pochopitelnd v rdmci ko- 
nednych dasovych moinostf. 


R13 1,2 kn 

PI, 2 0,1 Mft/N TP 280 

KondenzAtory 

Cl TE 007 100 |iF/15 V 

C2 TK 747 100 nF 

C3 TK 747 100 pF 

04, 5 TC 215 220 nF (MPT — Pr 96, 

TGL 55163 

Ostatnf soudAstky 


Objimka DIL 14 6ks 

Objimka OIL 16 2ks 

Objimka DIL 24 1 ks 

Konektor FRBTY 517 20 11 Iks 
Konektor WK 462 40 1 ks 

Konektor WK 465 40 1 ks 


a 



Souddstky pouiitd pro stavbu pfevodnfku 








fog. Jaroslav Svehla, voronuak* rnm. z, ezsoo Bmo 


K uchovini vAtAfho m no is tv I dat rfitndw charakteru byl vytvofen reladni interaktivni databAzovy system 
— RIOS — pro mikropodftade facty MZ-700 a MZ-800 <v m6du MZ-700). Tento system umoiftuje interaktivni 
formou definovat, modifikovat a zpracovAvat data dvou typO v tabulkovA formA. 

Datable je ocgamzovAna ve formA tabulek pojmenovanych vtastnim jntenem. ftddky tabulky pfedstavuji 
jednotlhte zAznamy datable, tote kaidy zAznam mA volitelny podet potaiek (sloupcO) libovofnAtio jmAna 
a formAtu. 


PMdmt 

JmAno databAze: UD£ 


1 

2 

3 

m 

jmEno 

PftfJMENi 

TELEFON 

vEk 

Jana 

KrAtkA 

3227 

20 

IvoS 

Pech 

4138 

17 

Oto 

Mann 

2256 

31 


Pffklad ukazuje organizaci databAze 
LIDS, kterA obsahuje tfi nezAvislA zA¬ 
znamy o dtyfech poloikAch (JmEnO, 
PfifJMENf, TELEFON, VEK). 

FORMAT DAT 

DatabAze rozliduje dva formAty dat: 

fbrmAt 1... numerickA data (real nebo 
integer), 

formAt 2... textovA data (fetAzce tibo- 
voinych znaku vdetnA deskA abecedy). 

Obsah poloiky je nulovy, jestliie 
= 0 (formAt 1) anebo = (formAt 2). 


STRUKTURA DAT 

Vzhledem k tomu, ie program byl 
vytvAfen pro zAkladnl konfiguraci mik¬ 
ropodftade, bez vnAjSfch perrferii pouze 
s magnetofonem, byla jedinA struktura, 
dostupnA pro uchovAnl dat v pamAti, 
pole. Tato skutednost zpusobuje vyraz- 
nA degradovAnf databAze v oblasti jejl 
variability a rozsahu. 

Pro fyzickA uchovAni dat bylo vyuiito 
dvou poll, kterA uchovAVajl jak informa- 
ce o struktufe databAze, tak vlastni 
data, kterA tvofl jejl obsah. 


Pole obsahuje informace o jmAnech 
databAze a vSech poloiek, kterych 
mflie byt libovolny podet X. DAle 
obsahuje obsahy vSech polofek for¬ 
mAtu 2, pro vSechny zAznamy v tako- 
vAm pofadf, v jakAm jsou v databAzi 
uvedeny (tj. zleva doprava a shora dolu 
— viz pffklad). 

B. Pole TF(N) 


STRUKTURA PROGRAMU 

I kdyi jazyk BASIC nenf optimAinf pro 
strukturovanA programovAnf, pfi tvorbA 
programu bylo pfihlfieno k tomu, aby 
program byl co nejditeinAjSf a nejsrozu- 
mitelnAjSf. Proto je ceiy program dAien 
do programovych celku, kterA zadfnajf 
na fAdcfch XXOOO a kondi na fAdcfch 
XX990. Tyto programovA celky majf 
charakter podprogramu, kterA vyko- 
hAvajf pffsiuSnA akce danAho pffkazu 
a jsou volAny rozskokovou tabulkou na 
zadAtku programu. 


Od dfsla fAdku 30000 jsou uloieny 
nAkterA podprogramy spolednA pro 
dinnost programu (definice obrazovky, 
oSetfenf chyb, definice deskA abecedy, 
servisnf modul apod.). 

Cinnost programu a umfstAnf pfi- 
sluSnych podprogramu jsou zfejmA 
z grafickych schAmat. 


A. Pole ADFS(N) 


0 

1 

2 


X 

X-t-1 

X+2 


N 

jm6no 

databAze 

JmAno 1. 
poloiky 

JmAno 2. 
poloiky 

... 

JmAno X. 
poloiky 

data 

data 

... 

data 


UKAZATEL ZAZNAMU 

Ve struktufe databAze je obsaien 
ukazatel, ktery ukazuje na jeden ze 
zAznamu databAze. Tento zAznam se 
nazyvA „bAiny zAznam" a je to 
zAznam, se kterym se momentAlnA 
pracuje a na kterAm (resp. od kterAho) 
se budou provAdAt pffkazy. 

Obsah tohoto ukazatele se mAnf 
butf v souladu s vysledkem urditAho 
pffkazu anebo jej muie uiivatel zmAnit 
pffmo. 

Wb£R ZAZNAMU 

DatabAze umoiftuje vybAr libovotnA 
podmnoiiny zAznamu (pffkazy O, A, 
H — viz ..PftfKAZY"), podie zvolenych 
kritArif, nad kterymi se budou provAdAt 
pffkazy D, P, X (viz „PfifKAZY“). Tyto 
vybranA zAznamy se nazyvajl ..aktivnf 
zAznamy". 

IMPLEMENTACE 

Uvedeny interaktivnf databAzovy sy¬ 
stem byl realizovAn na podftadi SHARP 
MZ-821 (v modu MZ-700) ve dvou 
modifikacfch: 

a) v jazyku S-BAS1C (MZ-1Z013) 
— interpret; 

b) ve strojovAm kddu, jako produkt 
kompilAtoru S-BASIC COMP. 

Pro lepSf nAzomost uvAdfm modlfi- 
kaci v S-BASJCu. Uiivatel mA moinost 
po nahrazeof konstrukcf IF ERROR 
GOTO a RESUME za BREAK ON 
a BREAK OFF a jin^m postupem 
definice deskA abecedy (viz. f. 12—13) 
uvedenou vend zkompilovat. 


0 

1 

2 

3 

4 


X+2 

X+3 


N 

potet 

zAzna- 

mfl 

poUetpo- 

Wtokvl 

zAznamu 

potat po- 
iotok for¬ 
mAtu 2 

formAt 

l.pol. 

formAt 

2. poL 

... 

formAt 

X. pol. 

data 

... 

data 


Pole obsahuje informace o struktufe 
databAze (velikost a formAty) a obsahy 
vSech polofek formAtu 1. 

Pffktad uloienf databAze v polfch: 


JU(NO 

PftJMENf 

TELEFON 

Jana 

Ivoi 

KrAtkA 

Pech 

3227 

4138 


OBSLUHA PROGRAMU RIDS 

Program pracuje v interaktivnfm reii- 
mu a tudfi i nezaudeny uiivatel je 
schopen ho ovIAdat 


Obrazovka je rozdAlena do dvou 
dAstf: 


Uloienf: 



0 

1 

2 

3 

4 

5 

6 

7 

ADF> 

Uf»fi 

JME¬ 

NO 

PAU- 

iieyi 

TELE¬ 

FON 

Jana 

KrAtkA 

lvo8 

Pach 


homf dAst — informadnf, 
dolni dAst — konverzadnf. 



0 

1 

2 

3 

4 

5 

6 

7 

TF 

2 

3 

2 

2 

2 

1 

3227 

4138 


Dimenze obou polf mA uiivatel 
moinost upravovat na fAdku 20 podie 
toho, jaky charakter budou mft uklAda- 
nA data. Must mft ovAem stAle na 
pamAti, ie: 
pro ADF$(n)... n>X 
pro TF (n)... n>X+2 
Jestliie tody bude mft poloiky pouze 
formAtu 1, potom muie pole ADF$ 
zkrAtit na ukor pole TF a naopak. 
POZOR, pfi pouiiti pffkazu Z je tfeba 
mft na zfeteli, jakou strukturu bude mft 
databAze zavAdAnA zmagnetofonu. 


V Informadnf dAsti jsou vypisovAny 
vysledky provAdAnych pffkazu a sy- 
stAmovA hi Aden f. V konverzadnf dAsti 
problhA veSkerA konverzace mezi sy- 
stemem a uiivateiem. 

Po zavedenf S-BASICu a zdrojovAho 
programu RIDS do pamAti a po jeho 
spuItAnf se objevl na obrazovce uvodnf 
hlAAenf, ve kterAm je uiivatel tAzAn, zda 
si pfeje definovat deskou abecedu. 
Jestliie ano, pak z CMT bude nadten 
a proveden soubor ve strojovAm kddu 
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„CESKY PCG“. Jestliie ne, pak tento 
soubor nenf potrebny k Cinnosti data¬ 
ble. Po stisknuti prfkazu ? je uiivatel 
informov&n o vSech jemu dostupnych 
pffkazech. 

Pozn&mka: Prvmm prfkazem musf byt 
v2dy G nebo Z (viz d&ie), jinak system 
reaguje chybovym hld§enim. Po prfka- 
zu G nebo Z se doporu5uje specifikovat 
format tisku pFikazem Y, protoie impii- 
citni nastavenf tisku je omezeno pouze 
na tisk 1. poloiky bez uvedeni jmen. 

PftfKAZY 

V konverzaCni £6sti obrazovky sy¬ 
stem indikuje pfiznakem stav, kdy 
o£ek£vd jednopismenovy k6d prfkazu. 
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[300] 
[290-2951 
[24000-24990] 
123000 - 23990] 
[22000 - 229901 
[21000 - 219901 
[20000 - 209901 
[190)0-19990] 
(18000-18990) 
[17000-17990] 
116000-16990] 
[15000-15990) 
[14000-14990] 
[13000-13990] 
[12000 -129901 
111000 - 11990) 
110000 -10995] 
[9000-9990] 
l 8000 - 8990] 
[7000 - 7990] 
[6000 - 6990] 
[5000 - 5990] 
[4000 - 4990] 
[3000 - 3990] 

[ 2000 - 29901 


[1000-19901 
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Z tisk uvodni j 
obrazovky/ 


^t^pfiko^y 


/ tisk vsech / + 

—f pr ikozu A* * 



•w 


' tisk jmena.y 
’ OB, poctu 
poctu pot 
^bezny zazr 
poctu ak- 
' tivni'ch za- 
znamu 




pfesun u_ko- 
zatele vpfed 

/bezn zozn / 


/cti polozku / 
/a jeji obsah/ 

JET 


vyhtedej 

zdznom 


/tisk nateze-/ 
/ne potozky / 


fb ti 7 

/ polozku /*" 

/Tisir 7 

/ polozky / 


/cti 7 

/ kolik / 


zrus 

zaznamy 


/ tisk noveho 7 
bezn zozn / 


© 


6 


/tisk poll' / 
yAOFS.TF, IP r 


/tisk jmen. / 
W cisel c j— 

J formatu / 

/ potozek / 


7 

*7 o kotik / 


pfesun uka- 
zatete vzod 


/tisk noveho / 
/bezn. zozn / 







/cti 7 

^novy obsah / 


uloz 

novy obsah 


(50000 - 50990 ] 



proved' 



prikaz '£’ 


/ cti 7 

/novy obsah # 

* 


uloz 

novy obsah 


>. . 7 

y novy zazn [ 


atp/ ho pred 
bezny a ucsn 


0 


0 







Pro nAkterA prikazy viz Implementafinf 
omezeni. 

A. PfUcazy pro ditaMzi 

? — dostupnA pFfkazy. 

VypfSe vSechny dostupnA pFfkazy 
a jejich vyznam. 

G — vytvofenf struktury databaze. 
Definuje se jmAno datable (tabulky), 


pofiet poioiek zAznamu (=pofiet sloup- 
cQ tabulky), jmfina poioiek a formAty 
dat obsaienych v poloikAch. Strukturu 
database Ize pozdAJi prostfednictvfm 
jinych pffkazO modifikovat. 

K — zrufienf datable. 

ZruSf nejenom obsah databAze, ale i jejt 
strukturu. 

Z — zavedenf datable. 

Zavede dffve vytvofenou databAzi 


<Qb - V—. 

J cti novy / 

7 zazncm / 

/“A <v^> 

pfipoj novy 
zazn na ko¬ 
nec 08 a u&rt 
ho beznvm 

# -T 

l . _ 

rozep»s 

zdznomy ^ 

/cti pFedCh j 

Tpol.jmeno a# 
/form nove p / 

16ti polozku / + 

/ a nove H’ N / 

/ jroeno / 

vytvor novou 
pot. a naptA ji 
nulovou hodn. 

proved’ 

pfejmenovanj 

1_ 

t»\ - 7 

1 rusenaj # 
f poiozku / 

=5Ei 

zrus polozku 
ve vsech 
zdznamech 


uloz 08 
bez hesla 


uloz OB 
pod hestem 


/ definuj 
I strukturu 
r dotabaze 


vytvof oovou 
databazi 


pot.jeji 
/obsah a poch 


proved" 
prikaz ‘R' 




±C'tK 


I tisk 
r ctyboveho 
hlasenf 


zaved" 08 J f iv ^ lo 

do pa met i I / 


+ heslo ^ 
”souhlasi. 


Iprevod vsech 
Izazn. do rmoz 


tisk poStu z, 
iouctu.prum J 
st. odctiyl / 


proved' 
prfkaz - R" 


/cti pot, jeji , 
•i obsch a podj 
/mfnky vyben# 


proved" 
prfkaz ~R' 


/ cti druh 
»tisku a kte- 
fre polozky 


# tisk 
F chyboveho 
htdseni 


z CMT do pamSti (obdoba Load). Je-Ii 
soubor s databAzf chrAnAn hestem, pak 
uiivatei musf toto heslo specifikovat. 

U — uioienf databAze. 

StAvajfcf datable se uloif na CMT 
(obdoba Saw). Existuje molnost 
chrAnit uklAdanou databAzf hestem. 

R — stav datable. 

RozepfSe stAvajfcf strukturu databAze 
(jmAno, pofiet zAznamu, pofiet poloiek, 
bfiiny zAznam a pofiet aktivnfch 

) zAznamu). 

Q — konec fiinnosti. 

Ukonfil fiinnost RIOS, pouifvA 
se po pFedchozfm pouiitf 
pFfkazu U. 

B. Pfftazy pro zAznamy 

I — vloienf zAznamu. 

Vsune novy zAznam pfed Winy 
a novy zAznam ufiinf bAinym. 

B — pFIdAnf zAznamu. 

PFidA novy zAznam na konec 
datable a ufiinf ho bAinym. 
On — zruSenf zAznamu. 

ZruSf n zAznamu pofifnaje 
bAinym (vfietnA) a bAinym ufii- 
ni nAsledujfcf nezrufieny zA- 
znam. Je-Ii pofiet ruAenych zA¬ 
znamu vfitAf nei pofiet zAznamO 
od bAinAho do konce data¬ 
ble, pak se zruSf pouze zAzna- 
my od bAinAho do konce data¬ 
ble a bAinym se stAvA zA- 
znam pFed prvnfm zruSenym. 
POZOR, ruSf se pouze aktivnf 
zAznamy! 

+»» — pFesun ukazatele 

bAinAho zAznamu dopFedu. 
Ufiinf bAinym ten zAznam, ktery 
mA poFadovA fifslo o n vAtSf, 
nei stAvajfcf bAiny zAznam. 
DosAhne-li se konce databAze, 
stAvA se bfiinym postednf zA¬ 
znam. 

•n — pFesun ukazatele 

b£2n£ho zAznamu dozadu. 
Ufiinf bAinym ten zAznam, ktery 
mA poFadovA fifslo o n menAf, 
nei stAvajfcf bAiny zAznam. 
OosAhne-li se zafiAtku data- 
bAze, stAvA se bAinym prvnf 
—*(4)zAznam. 

— vypis zAznamu. 

Funguje stejnA jako pFfkaz 
D s tfm rozdflem, ie neruSf zA¬ 
znamy, ate vypisuje je na obra- 
zovku ve formAtu zvotenAm 
pFfkazem Y. Tisk se pozastavu- 
je po kaidAm stisknutf mezer- 
nfku, dalSfm stiskem mezernfku 
Ize pokrafiovat. ZruAenf tisku se 
provede klAvesou Q 
H — inicializace mnoiiny aktiv¬ 
nfch zAznamu. 

PFevAdf vfiechny zAznamy do 
mnoiiny aktivnfch zAznamu. 

A — operace AND. 

V mnoiinA aktivnfch zAznamu 
ponechA pouze ty zAznamy, 
jei splftujf zadanou podmfn- 
ku. 

O — operace OR. 

Do mnoiiny aktivnfch zAznamu 
pFidA ty neaktivnf, kterA splftujf 
zadanou podmfnku. 

Y — setekce tisku. 

Specifikuje formAt tisku. PO¬ 
ZOR, pfi tisku do FAdku Ize tisk- 
nout pouze 3 poloiky (vzhte- 
dem k omezenA SfFce obrazov- 


KONEC 
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ky) v ffbovoln6m pofadf, a to s ma*u 
mjlnf daikou fetfizce 10 znakfl (delSf 
retfeec je zprava zkr^cen — format 2). 

C. Pfikazy pro poloiky 

C — poloiky datable 
atoS.“ P ° l0Jk4ch <«*»• jm6na 
M — prid^nf poloiky. 

PridA novou poloiku do struktury data- 

b f*f- 0bsah , t6t0 P D, oiky je v kaictem 
zdznamu nulovy (viz Format dat) 

™ — zmena jm6na. 

n i- J . m6no specifikovan6 poloiky 
Je-li 5islo specifikovan6 poloiky = 0 
pak zmdm jm6no datable Y 
F — zruSenf poloiky. 

Zru§f libovolnou poloiku datable. 

L nalezenf poloiky. 

Nalazne prvnf zAznam s poloikou ielfi 

mem C e ^l U i e uiivatel - BSinym zAina- 

S nalezen y z^znam anebo 

l Za h^Py 171 zaznamem, pokradu- 
je do konce databaze a dale pokradute 

znamu^ tkU datab4ze do b^n6ho X 
S — vyhledanf a zmdna. 

Proved! totei co pffkaz L, s n^slednou 
zmdnou obsahu poloiky nas,eanou 
E — zobrazenf poloiky. 

Vyplge obsah libovolnd poloiky b6in6- 
ho zaznamu. 
v — zobrazenf a zmena 
Provadf tot6i co pffkaz E, s naslednou 
zmenou obsahu poloiky. 

X — statistika. 

Pjovede vypoCet statistickych udajO na 
zaklade obsahu poloiky. POZOR vy- , 
Cislovana poloika musf byt formatu V 
Vypodtena udaje jsou: t 

*"* po&et zAznamu (aktivnfch): 
soudet; 
pr0m§r; 

standardnf odchylka. 1 

POZOR, vydfsluje pouze aktivni zazna- , 
my! * 

i 

CHYBOVA HLASenI a 

3 

** CHYBNY VSTUP ! *** 3 

Indikuje chybu pfi operaci INPUT: 5 

— format 2 mfsto formatu 1: POZOR 5 

ne naopak! ’ 5 

— chybna Cfslo poloiky; t 

— poloika formatu 2 u prfkazu X; 

nenumericka specifikace poloiky o* 
nebo formatu; 7 < 

~ format poloiky = 1 nebo 2 a 

9< 

*** prAzdnA databAze ! *** t 

Pokus o provedenf prfkazu nad data- ^ 
bazi s nulovym poCtem zaznamu. H 

*** databAze nevytvoAena i *** H 

Neproveden prvotnf pffkaz G nebo Z. is 

*** KAPACITA PREKROCENA ! *** 17 

Dal§f zaznam do databaze nenf moiny 18 
z duvodu pfekroCenf kapacity pam6ti. 19 
Pouiito u prfkazu I, B, M 201 

21' 

*** zruSte databAzi I “* 

U prfkazu F, kdyi uzivatel ruSf poslednf 24 ( 
poloiku databaze. ^ 

IMPLEMENTACNf OMEZENi 27< 

„ 28 < 

a) Pfi zadavanf parametru pro prikaiy ^ 
se poloika vidy specifikuje svym Cfs- 2 B 3 


»em a ne jmanem (fee zjistit pffkazem 
C)» 

b) format poloiky se vidy specifikufe 
svym ifslem: 

1.. . numericka data; 

2.. . textova data. 

c) nepouifvejte 

SHIFT 1 + [BREAK, 

doSlo by ke zhroucenf systamu. 

CeskA abeceda 

RIDS umoirtuje pouifvat velka i mala 
pfsmena a tak6 haCky a earky pomocf 
kiavesy 


295 IF (OPx^K-I^ILEFTKdx^DO-A-) THEN 

Dv 

300 GOSUB 34000:CURSOR 5/6 : PRINT CSx : C0T 

U Ju 

310 OK=0:GOTO 56 

1000 REN *** ?...HE !P m 

1065 G0SUB 34066 

1010 PRINT -PRIKA2 VYZN6M* 

1020 PRINT *- _______ 

1046 PRINT " ?.INF0RMACE 0 PRIKA2EC 

1050 PRINT - R.STAV DATABAZE" 

JJSa l C .P0L0ZKY DATABAZE" 

1070 PRINT +tN3. P0SUV UKAZATELE VPRE 

108© PRINT " -EN3...P0SUV UKAZATELE VZAD 


Naprfklad, napsanf slova UCENf se 
provede touto posloupnostf 

Protoie pfsmena E a U mohou mft ai 
tfi varianty, je jejich prifazenf toto: 

El =IgraphJ + i3 {oj = (graphI -t- [p{ 
dl = Igraph] +jw| 0 = Igraph I +[y] 

C v yp» s programu RIPS ^ 


mikroelektronika 


16 REN *** rids m 

11 CLS:CURSOR 16/6:PRINT "RID S"-CURS0 
R 14/ 7: PRINT "JSSt0-1987" 

12 CURSOR 1,12:INPUT "DEFINOVAT CESKOU A 
BECEDU ? (A/N) > " iOPK^x^TKtOPx^) 

13 IF 0Px=“A" THEN PRINT:PRINT “JE NUTNY 
SOUBOR NA CMT: >CESKY PCG< !* CURSOR 15 

^PWNT^HRxlxTFIi- PLAY" :LIHIT xFOO©- 
LOAD “CESKY PCG“.USR(xFOOO):LIMIT MAX PO 
KE X6BCF,X3B/Xl 

14 ON ERROR GOTO 39000 

15 COLOR ,,7,0 

20 ADF=560 ; NTF=500 ; NZD=200 

25 DIM ADFx(ADF),TF(NTF),IP(N2D),TS(6) 

30 CLS:OK=-1:AZ=0 
35 GOSUB 33OO0 
50 GOSUB 35000 
53 MUSIC “AO.5" 

55 PRINT " 

60 GET 0Px : IF 0Px*““ THEN 60 
62 PRINT OP* 

65 IF 0Px="W" THEN GOSUB 34006.GOSUB 500 
00;GOTO 50 

70 IF OPx—"Q" THEN CONSOLE , as END 
80 IF 0P*=“?" THEN GOSUB 1086:GOTO 50 

90IF (OPx<>"G")*{OPxO"2«)*(OK=-1) THEN 

GO^JB 34OO0.CURSOR 5,5: PRINT "Ht DATAB 
AZE NEVYTVORENA < «♦" : GOTO 50 
;«* H 0P*=“R“ THEN GOSUB 2060:GOTO 310 
120 IF 0Px=“C" THEN GOSUB 3000 =GOTO 310 
130 IF 0Px=“+“ THEN GOSUB 4060.GOTO 310 
3^® 0Px=“-“ ThEN GOSl© 5000:GOTO 310 

150 IF 0Px=“L" THEN GOSUB 6000:GOTO 310 
166 IF 0Px=“S" THEN GOSUB TOO©:GOTO 310 
™EH GOSUB 8060: GOTO 310 
180 IF 0Px="V" THEN COSt® 9000=GOTO 310 
196 IF 0Px=“D" TIEN GOSUB 1OO60:GOTO 31© 
200 IF 0Px="I■ THEN GOSUB 11000.GOTO 310 
210 IF 0Px="B" TIEN GOSUB 12000:GOTO 310 
220 IF 0Px=“P" THEN GOSUB 13000:GOTO 310 
-30 IF 0Px=“M“ TIEN GOSUB 14000:GOTO 310 
240 IF 0Px=“N* THEN GOSUB 15600=GOTO 310 
25© IF 0Px="F" THEN GOSL® 16000:GOTO 310 
260 IF 0Px=“U" THEN GOSUB 17000=GOTO 310 
-70 IF 0Px="Z" TIEN GOSUB 18000=GOTO 310 

280 IF 0Px=“G" TIEN GOSUB 19600=GOTO 316 

281 IF 0Px="H" THEN GOSUB 20600=GOTO 310 

282 IF 0Px=“A" THEN GOSUB 21006=GOTO 31 © 

^ ^ «^UB 22000 = GOTO 310 

^4 IF 0P*="X" THEN GOSUB 23666.GOTO 316 
285 IF 0Px=“Y" THEN GOSUB 24606=GOTO 310 
296 IF 0Px="K" THEN PRINT:INPUT " POTVRD 
TE! <A/N) > ",Ix=if LEFTx(Ix,1)=-a" THEN 

30 


3?^® PRINT " L.NALEZENI ZAZNAMU" 

1106 PRINT " S.JAKO L SE ZMENOU* 

lllO^PRINT " E.ZOBRAZENI OBSAHU Pa 

1120 PRINT " V.JAKO . E SE ZMENOU” 

B 1130 PRINT " DCNJ.. ZRUSENI ZAZNAMU" 

1 BEZNY" INT " 1 . VL02EN1 ZAZNAMU PRED 

1150 PRINT " B PRIDANI ZAZNAMU NA K 

UWfcC 

1160 PRINT " PIN],. ROZEPSANI ZAZNAMU" 
1162 CURSOR 2,20 
* 1163 CON^JLE 18,6,2,36 

1164 INPUT "DALSI PRIKAZY? (A/N) >";0px 
1166 IF LEFTx(0Px,1)<>“A" THEN 199© 

' 1167 GOSl® 34060 

1168 PRINT “PRIKAZ VYZNAM- 

1169 PRINT "-- . - 

3 1170 " R.PRIDANI PaOZKY" 

1180 PRINT " N.PREJMENOVANI POLOZKY 

ll 

119© PRINT “ F....-.2RUSENI POLOZKY" 

( £00 PRINT " U ULOZENI DATABAZE NA 

1210 PRINT " Z.ZAVEDENI DATABAZE Z 

UtT 

S I G .VYTVORENI DATABAZE" 

1230 PRINT * K.ZRUSENI DATABAZF" 

g; :!.-SSfflSSw. 

1 ^®. PRINT “A.AKTIVIZACE - OPERACI 

bmu 

PftINT " 0 .AKTIVIZACE - OPERACI 

Jig® "j ™ 7 ^ *.STATISTIKA DAT- 

1286 PRINT " Y.SELEKCE TISKU" 

1296 PRINT " Q.KONEC PRACE S DATABA 

1990 RETURN 

2606 REM **♦ R. STAV DATABA2E *** 

2005 GOSUB 34000 

2010 PRINT "DATABAZE = ",ADFx< 0 ) 

202© PRINT "ZAZNAMU :";TF< 6 ) 

2630 PRINT "PaOZEK ="iTF(l) 

2046 PRINT 

2050 PRINT "BEZNY ZAZNAM ";A 2 “ “ 

2060 PRINT "- - - ' 

2670 P0C=0 

2075 IF TF(0)=0 THEN 2116 
2080 FOR 1=1 TO TF<0> 

2090 IF IP(I )=0 THEN P0C=P0C+1 
2100 NEXT I 

2116 PRINT "AKTIVNICH ZAZNAMU =*;POC 
2996 RETURN 

3600 REM *** C.. .POLOZKY *** 

3605 GOSUB 34006 
3010 FOR 1=1 TO TF(1) 

3030 NEXT I 
3990 RETURN 

4O0© REN *** +.. .POSUV VPRED *** 

4005 IF TF( 0)=0 TKEN GOTO 36000 
4616 INPUT "0 KOLIK >";KCUK 

<«aiK<0) + (KaiKOINTO(OLIK)) TH 
EN GOSL® 37600:GOTO 4610 
4026 AZ=AZ+KOLIK 
4030 IF AZ>TF(0) T)€N AZ=TF( 0 ) 

4990 KaiK=l : GOTO 13020 

5060 REM *** ..POSUV VZAD m 

5665 IF TF(0)=0 THEN GOTO 36600 

5010 INPUT "0 KOLIK >";K0LIK 

5615 IF tKOLIK<0)+(KOLIKOINT(KOLIK)) TH 

EN GOSl® 37000:GOTO 5016 

5026 AZ=AZ-KaiK 

5030 IF AZ <1 TEEN AZ=1 

5990 GOTO 4990 

6006 REM *** L...VYHLEDANI ZAZNAMU *** 

6005 IF TF(0I=0 THEN GOTO 36060 
6016 INPUT "POLOZKA >";SL 

























6©20 IF <SL>TF(1))+<SL<l)+(SL<>INT(SL)) 

TIEN GOSUB 37000:GOTO 6G10 

6030 IF ABS(TF(SL+2))=1 THEN INPUT "OBSA 

H >“;PR:GOTO 6040 

6035 I1CUT “OBSAH >";PRx 

6040 PP=0:KOLIK=0 

6045 IF SL=1 THEN 6075 

605O FOR 1=1 TO SL-1 

606O IF ABS(TF(1+2))=2 THEN PP=PP+1 

6070 NEXT I 

6075 P0C=PP 

608O IF ABS(TF(SL+2))=1 TIEN 6200 
6090 PP=PP+TF(1)+1+AZ+TF(2) 

610O IF TF<0XAZ+1 THEN 6140 
6105 FOR I=AZ+1 TO TF<0> 

6110 IF ADFx(PP)=PRx THEN AZ=I : GOTO 4990 
6120 PP=PP+TF<2) 

6130 NEXT I 

6140 PP=POC+TF(1)+1 

6145 IF AZ<1 THEN 6190 

ilSA POP T=1 Tft <17 

6160 IF ADF*(PP)=PRx THEN A2=I GOTO 4990 
6170 PP=PP+TF(2) 

6180 NEXT I 
6190 GOTO 6990 

6200 PP=2+TF(1)+AZ*<TF(1)-TF(2))+SL-POC 
6210 IF TF<0XA2+1 THEN 6250 
6215 FOR I=AZ+i TO TF<0) 

6220 IF TF<PP)=PR THEN AZ=I=GOTO 4990 
6230 PP=PP+TF(1)-TF(2) 

6240.NEXT I 

6250 PP=2+TF 11)+SL-POC 
6255 IF AZ<1 THEN 6990 
6260 FOR 1=1 TO A2 

6270 IF TF(PP)=PR THEN AZ=I GOTO 4990 
6280 PP=PP+TF(1)-TF(2) 

6290 ICXT 'I 
6990 RETURN 

70O0 REM *** S.. VYHLEDANI A ZMENA *** 

7005 IF TF<6>=0 THEN GOTO 36000 

7010 GOSUB 6000 

7015 IF KOLIK=© THEN 7990 

7017 CURSOR 2,22 

7019 CONSOLE 18.6,2,36 

7020 IF ABS(TF(SL+2))=1 THEN INPUT “NOVY 
OBSAH >";TF(<AZ-i)»<TF<l)-TF<2n+SL+TF( 

1)+2-P0C);GOTO 7990 

7O30 INPUT “NOVY OBSAH >" ,ADFx< <A2-1)»TF 
~T2)+P0C+1+TF<1>) 

7990 RETURN 

8000 REM *** E.. ZOBRAZENI POLOZKY *** 
8O05 IF TF(0)=8 THEN GOTO 36000 
8010 INPUT "CISLO POLOZKY >";SL 
8015 IF <SL>TF(l)>+<SL<l>+<SLOINT<Sp) 
THEN GOSUB 37600 GOTO 8010 
8020 POC=0 

8625 IF SL=1 THEN 8055 

803O FOR 1=1 TO SL-1 

8640 IF ABS(TFU+2)>=2 THBI P0C=P0C+1 

8056 NEXT I 

8055 GOSUB 34000 

8660 IF ABS<TF(SL+2))=1 THEN PRINT "OBSA 
H =“;TF<<AZ-l)*<TF<l)-TF<2))+SL+TF<l)+2- 
POC):GOTO 8990 

8070 PRINT “OBSAH = “,ADF*((AZ-1)*TF<2>+ 
POC+TF <1)+1) 

899© RETURN 

900G REM *** V.. ZOBRAZENI A ZMENA «* 
9005 IF TF(0)=0 TIEN GOTO 36000 
9010 GOSUB 8O00 
9996 GOTO 7017 

10006 REM *** D.. RUSENI ZAZNAHU *** 

1O005 IF TF(0)=0 THEN 36606 

10010 INPUT "KOLIK >”;KOLIK 

10015 IF (KOLIK<0)+(KOLIKOINT(KOLIK)) T 

HEN GOSUB 37000: GOTO 1001© 

10018 IF KOLIK=0 THEN 16990 

10620 IF KOLIK>=TF(0)-AZ+l THEN KOLIK=TF 

<0)-AZ+l:GOTO 10150 

16030 P0C=(AZ-1)*<TF(1)-TF(2))+TF(l)+3 
10040 PP=KQLIK*(TF(1)—TF(2)) 

10045 IF PP<1 THEN 16090 
16050 FOR 1=1 TO (TF(G)-AZ)*(TF(1)-TF(2) 
) 

10066 TF(POC>=TF<PQC+PP) 

10070 P0C=P0C+1 
10086 NEXT I 

10096 POC=(AZ-1)«TF(2)+TF(1)+1 
10100 PP=K0LIK*TF(2) 

10165 IF PP<1 THEN 10141 
10110 FOR 1=1 TO <TF(0)-AZ)*TF<2> 

16120 Mfx<P0C)=ADFx{POC+PP) 

10130 P0C=P0C+1 

10140 NEXT I 

10141 IF KQLIK=1 TIEN 10150 

10142 FOR 1=1 TO KOLIK-1 
10144 IP<AZ+I)=IP(AZ+KOLIK+I) 


10146 NEXT I 

10156 IF AZ+KOLIK>TF(0) TIEN AZ=AZ-1 
16152 TF(0)=TF(0)-KOLIK 
10990 GOTO 2006 

1100© REM *** I...VLOZ ZAZNAM *** 

11065 IF (((TF(0)+l)*(TF(l)-TF(2))+TFCl) 
+2)>NTF)+(((TF<0)+1)*TF(2)+TF(1))>ADF) T 
HEN GOSUB 38000:GOTO 11990 
11008 IF AZ=© TIEN AZ=1 
11010 POC=TF(0)*(TF(1)-TF(2))+TF(l)+2 
11020 PP=TF(1)-TF(2) 

11025 IF (TF(0)-AZ+1)*(TF(1)-TF(2)X1 TH 
EN 11076 

11O30 FOR 1=1 TO (TF(0)-AZ+1)*(TF(1)-TF( 
2 )) 

11640 TF(POC+PP)=TF(POC) 

1105© P0C=P0C-1 
11060 NEXT I 

11076 P0C=TF<©)*TF(2)+TF<1) 

11080 PP=TF(2) 

11085 IF TF(2)*(TF(0>-AZ*1X1 TIEN 11130 
11090 FOR 1=1 TO TF(2)*(TF(0)-AZ+1) 

11100 ADFx(POC+PP)=ADFx<POC) 

1111© P0C=P0C-1 
11120 NEXT I 
11130 POOPOC+1 

11140 PP=<AZ-l)»<TF(l)-TF(2))+TF<l)+3 
11145 GOSUB 34000 
11156 FOR 1=1 TO TF(1) 

11166 PRINT I;"."; 

11165 IF LEFTx(JSx,l)=*A“ THEN PRINT ADF 

X(I)i 

1117© IF ABS(TF(I+2))=1 TIEN INPUT “ >“; 
TF(PP):PP=PP+1:G0T0 11200 
11180 INPUT M >“;ADFx<POC):POC=POC+l 
11260 NEXT I 

11201 IF TF(0)-A2<0 TIEN 11210 
11204 FOR 1=0 TO TF(6)-A2 
11206 IP(TF(0)-I+1)=IP(TF(0)-I) 

11268 NEXT I 
11210 IP(AZ)=0 
11228 TF(0)=TF(O)+1 
11990 RETURN 

120O0 REM *** B.. PRIDEJ ZAZNAM *** 

12005 IF <<<TF(0)+1)*(TF<1)-TF<2))+TF<1) 
+2>>NTF)+<(TF(0>+1)*TF(2)+TF(1)>ADF) THE 
N GOSUB 380OG GOTO 1199© 

12010 PQC=TF<1)+TF(2>*TF(©)+1 
12O20 PP=TF<l)+TF<0)*<TF<l)-TF(2))+3 
1203© AZ=TF(0)+1 
12990 GOTO 11145 

130G0 REM *** P...TISK ZAZNAMU *** 

130O5 IF TF(0)=© THEN GOTO 36000 
13010 INPUT “KOLIK >";KOLIK 
13015 IF <K0LIK<0)+<K0LIK<>INT(K0LIK>) T 
HEN GOSUB 37000:GOTO 1301© 

1302© P2=<AZ-1)*TF<2)+TF(1>+1 
13040 PP=<AZ-1)*<TF<1)-TF(2))+TF<1)+3=P1 
=0 

13045 GOSUB 34000 

13047 IF <LEFTX(0LX,1)=“A“)*(LEFTX(JSX,1 
)=“A”) THEN PRINT SPC(3);=F0R 1=1 TO TS( 
O):PRINT LEFTX<ADFX<TS<I)),9);TAB(I*10+5 

)i:N£XT I.PRINT:PRINT "- 

-^CONSOLE 3,16.2,36 

13050 FOR I=AZ TO TF<0) 

13055 IF IP(I)=1 THEN P2=P2+TF<2):PP=PP+ 
TF <1)-TF(2)=GOTO 13120 

13057 IF P1=K0LIK THEN 13130 

13058 IF LEFTx<OLx,l)=“A“ TIEN 13102 
13O60 FOR J=1 TO TF<1) 

13865 IF TF(J+2)=1 TIEN PP=PP+1:G0T0 131 
00 

13067 IF TF(J+2)=2 THEN P2=P2+1:G0T0 131 
0© 

13070 PRINT 

13072 IF LEFTX(JSX,1)="A" THEN PRINT ADF 

X(J)j“ 

13074 PRINT “>•% 

13076 IF ABSITFtJ+2))=1 THEN PRINT TF(PP 
) : PP=PP+1: GOTO 1310© 

13078 PRINT “ ";ADFx(P2):P2=P2+1 
1310© NEXT J 

13101 GOTO 13114 

13102 PRINT SPC<3) i :FGR J=1 TO TS<0) 

13104 IF TF(TS(J)+2)=-l THEM PRINT TF<PP 
-TS<J+3)+TS<JI-l); GOTO 13107 , 

13106 PRINT LEFTx(ADFx(P2+TS(J+3)),9); 

13107 PRINT TAB<U*10+5); 

13108 ICXT J 
13110 PRINT 

13112 P2=P2+TF(2).PP=PP+TF<1)-TF<2) 

13114 AZ=AZ+1 

13116 IF LEFTX(0LX,1X>“A" THEN PRINT 

13117 P1=P1+1 

13118 GET lx.-IF <LEFTx<Ix,l)=“ “MKLEFTx 


<OPx,l)=“P") TIEN GOSUB 32000 

13119 IF LEFTx(Ix,l)=“Q" THEN FOR 1=1 TO 
500:NEXT I:GOTO 1313© 

13120 NEXT I 

1313© IF PIO© TIEN AZ=AZ-1 
13990 RETURN 

1400© REM *** A.. PRIDANI POLOZKY **» 
14010 INPUT "PREDCHAZEJICI POLOZKA >";SL 
14015 IF (SL<0) + <SLOINTtSL))+<SL>TF<l)) 
TIEN GOSUB 370O0: GOTO 14010 
1402O PP=0 

14025 IF SL<1 TIEN 1406© 

1403© FOR 1=1 TO SL 

14046 IF ABS<TF(I+2))=2 THEN PP=PP+1 

14050 NEXT I 

1406© INPUT "JICNO NONE POLOZKY >";PRx 
1407O INPUT "FORMAT NOVE POLOZKY >“,PR 

14075 IF <PR<>1)*<PR<>2) THEN COSUB 370© 
0 GOTO 14070 

14076 IF PR=1 TIEN IF <TF(0)*<TF(1)-TF<2 
))+TF(l)+2+TF(0))>NTF TIEN GOSUB 38000: 
GOTO 1499© 

14077 IF (TF<O)*TF(2)+TF(1)+TF(0))>ADF T 
HEN GOSUB 33O00:GOTO 1499© 

14O80 IF PR=1 THEN P0C=TF(l)+2+<TF<l)-TF 
<2))*TF<G):PQ=TF<0):G0T0 14195 
14O90 P0C=TF<1)+TF<0)+TF<2):PQ=TF(0) 
14095 IF TF < 0)=0 TIEN 1419© 

1410© FOR 1=1 TO TF(O) 

14105 IF TF<2)-PP<1 TIEN 1414© 

14110 FOR J=1 TO TF(2)-PP 

1412© ADFx<POC+PQ)=ADFx<PCC):P0C=P0C-1 

1413© ICXT J 

1414© ADFx<POC+PG)="“=PQ=PQ-l 
14145 IF PP<1 THEN 14180 
1415© FOR J=1 TO PP 

1416© ADFx(POC+PQ)=ADFx<PQC) : P0C=P0C-1 
1417© NEXT J 

14180 NEXT I 

14190 TF(2)=TF(2)+1 ;GOTO 1429© 

14195 IF TF(O)=0 TIEN 14290 
14200 FOR 1=1 TO TF(0) 

14205 IF TF(1)-TF(2)-SL+PP<1 THEN 14240 
1421© FOR J=1 TO TF(1)-TF < 2)-SL+PP 
1422© TF (POC+PQ) =TF < POC): POC=POC-1 
14230 NEXT J 

14240 TF<POC+PQ)=6:PQ=PG-1 

14245 IF SL-PP<1 THEN 14280 

1425© FOR J=1 TO SL-PP 

14260 TF<POC+PQ)=TF(POC):P0C=P0C-1 

14270 NEXT J 

14280 NEXT I 

14296 TF(1)=TF<1)+1 

1430© POC=(TF(1)-TF<2))*TF<0)+TF<1)+1 

14305 IF P0C-SL-2<1 TIEN 14350 

1431© FOR 1=1 TO POC-SL-2 

14320 TF(P0C+1)=TF(P0C) 

14330 P0C=P0C-1 
14340 NEXT I 

14350 POC=TF(2)*TF(0)+TF(1)-1 
14355 IF POC-SL<1 TIEN 14400 
1436© FOR 1=1 TO POC-SL 
14370 ADFx<POC+l)=ADFx(PQC) 

1438© F0C=P0C-1 
14390 ICXT I 
14400 TF < SL+3)=-PR 
1441© ADFx<SL+l)=PRx 
1499© GOTO 2000 

150O0 REM **+ N. ZMENA JMENA POLOZKY *** 
15010 I CUT "PREJMENOVAVANA POLOZKA >";S 
L 

15015 IF <SL<0)+<SL>TF(1)>+<SLOINT<SL)) 
THEN GOSUB 37000:GOTO 15010 
15O20 INPUT "NOSE JMEN9 >";PRx 
1503© ADFx<SL)=PRx 
1599© RETURN 

1600© REM *** F.. ZRUSENI POLOZKY **♦ 
16006 IF TF(1)-1<1 THEN GOSUB 3400O:CURS 
OR 8,6:PRINT "*** ZRUSTE DATABAZI ! ***“ 
RETURN 

16010 INPUT "RUSENA POLOZKA >",SL 
16015 IF <SL<1)+(SL>TF(1>)+<SL<>INT<SL>) 
THEN GOSUB 37000=GOTO 16O10 
16020 PP=© 

16025 IF SL=1 THEN 1608© 

1603© FOR 1=1 TO SL-1 

16040 IF ABS(TF<I+2))=2 THEN PP=PP+1 

1605© ICXT I 

16080 IF ABS<TF<SL+2))=1 THEN P0C=TF<1>+ 
2-PP+SL = P6=l= GOTO 16195 
16090 P0C=TF(1)+PP+1PG=1 
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16095 IF TF<t»)=0 THEN 1619© 

1610© FOR 1=1 TO TF<©> 

16105 IF TF(2)-1<1 THEN 1614© 

1611© FOR J=i TO TF<2)-1 

16120 ADF* < POC)=ADFx(PQC+PQ):POC=POC+l 

16110 HEXT J 

1614© PQ=PQ+1 

1618© NEXT I 

16190 TF(2)=TF(2)-1:GQTQ 16290 
16195 IF TF(0)=0 THEN 16290 
16200 FOR 1=1 TO TF(O) 

16205 IF TF(1)-TF(2)-1<1 THEN 16280 

16210 FOR J=1 TO TF(1)-TF(2)-1 

1622© TF(POC)=TF<FOC+PQ):P0C=F0C-1 

16230 NEXT J 

1624© PQ=P0-1 

1628© NEXT I 

16290 TF(1)=TF(1)-1 

1630© P0C=SL+2 

16305 IF (TF(1)-TF(2))*TF(0)+TF(1)-SL+1< 
1 THEN 16350 

16310 FOR 1=1 TO (TF(1)-TF(2))*TF(0)+TF( 
1)-SL+1 

16320 TF < POC)=TF(POC+1) 

16330 P0C=P0C+i 
16340 NEXT I 
1635© POC=SL 

16355 IF TF(2)*TE (0)+TF( D-SL+Kl TEEN 1 
6990 

16360 FOR 1=1 TO 7F<2)*TF(0)+TEQ)-SL+1 
16370 ADF*(P0C)=ADF*(P0C+1) 

16380 P0C=P0C+1 

16390, NEXT I 

16990 GOTO 20O0 

1700© REM +** U.. SAVE *+* 

17005 IF TF<0)=© THEN GOTO 36OO0 

17006 INPUT "CHRANII ZAPIS? («/N) >“;0P* 

17007 IF LEFTx(OPK/l)=-N” THEN PR*=",;;> 
"GOTO 1701© 

17008 IF LEFT* (OP*, 1)0 “A" THEN PRINTER 
INT CS*:PRINT GOTO 17006 

17009 INPUT "HESLO > M ,PR*CLS 

17010 GOSUB 3400© 

17020 CURSOR 13.5:PRINT CHR*(*7F )i " REC0 
RD.PLAY" 

17022 J=TF(0)*(TF(l)-TF(2))+2+7F(l) 

17024 K=TF(0)*TF(2i+TF(l) 

17025 WOPEN ADf *(©) 

1703© PRINT/T PR* 

170*0 PRINT/T J 
17050 PRINT/T K 
17060 FOR 1=0 TO J 
17100 PRINT/T TF(I) 

17110 NEXT I 
1714© FOR I=© TO K 
17150 PRINT/T ADF*(I) 

17170 NEXT I 

17240 CLOSE 
1725© as 
1799© RETURN 

18000 REN *** 2..-LOAD **+ 

18002 IF 0K=© THEN INPUT "EXISTUJIC1 DAT 
ABAZI ZRUSIT?(A/N) >"iOP*:IF L£FT*(0P*,i 
)<>"A“ THEN 18990 

18005 INPUT "JMENO DATABAZE Z CNT >";OPx 

18008 G0SU6 34000 

18009 CURSOR 16.5:PRINT CHRx(*7F);- PLAY 

18010 ROPEN OP* 

18011 INPUT/T PR* 

18012 IF PR*<>“;;THEN PRINT:INPUT ” 

HESLO? >"iOP*:CLS:IF PR*OOP 
* THEN CLOSE: GOTO 10 

18013 INPUT/T J 
18016 INPUT/T K 
18O20 FOR 1=0 TO J 
18030 INPUT/T TF<I) 

1804© NEXT I 
1805© FOR 1=0 TO K 
18060 INPUT/T ADF*<I) 

18070 NEXT I 

1808© close 

18090 FOR 1*0 TO TF(0):IP(I)=0:NEXT I 
18095 FOR 1=3 TO TF( l)+2-.TF(I )*A8S(TF(I) 
>:*EXT I 

18100 AZ=1:OK*0:TF(3)=-TF(3) 

18110 JS*="A“:OL*=“N" 

1899© GOTO 2000 

190O0 REM *** G...VYTVORENI DATABAZE *** 
19002 IF 0K=-1 THEN 19008 
19004 INPUT ’EXISTUJICI DATABAZI ZRUSIT? 
(A/N) >°;0P* 


58 mikroetektronika 


19006 IF LEFTVCO’x.DO’A" THEN 1999© 
19008 PRINT:PRINT “CEKEJTE PROSIM !" 
19010 FOR 1=0 TO ADF 
19O20 ADF*(I)=” 

1903© NEXT I 
19040 FOR I*0 TO NTF 
19050 TF(I)=0 

19060 NEXT I 

19061 FOR 1=0 TQ NZD 

19062 IP(I)=© 

19063 NEXT I 

19065 CONSOLE l,23,l,38 : aS:CURS0R 2,1:C 
ONSOLE 1,23.2.36 

19O70 INPUT “JMENO MOVE DATABAZE." 

;PRx 

19080 INPUT "POTVRDTE VYTVORENI (A/N).." 
;0P* 

1909O IF LEFT*(0P*.l)O’A“ THEN 0K*-1.G0 
TO 30 

19100 INPUT “POCET POLOZEK DATABAZE. 
;TF<1> 

19101 IF (TF(1K1)+<TF( l)OINT(TF (1))) T 
HEN GOSUB 370O6:GOTO 19100 

19102 INPUT "POCET POLOZEK FuRMATU 2. . .“ 
;TF(2) 

19103 IF (TF(2K0)+<TF(2)OINT<TF(2>)> T 
HEN GOSUB 37800:GOTO 19102 

19104 IF < ADF-TF <1)-TF(2)<6)+(NTF-2-2*TF 
tl)+TF(2)<0) THEN PRINT:PRINT SPC(2);KS* 

: PRINT:GOTO 1910O 

19110 ADF*(0)=PR* ; POC=0 
19120 FOR 1*1 TO TF(1> 

19130 PRINT:PRINT "PaOZKA«;I 

19140 INPUT " JMENO_";ADF*(I> 

19150 INPUT ’ FORMAT.. -;TF(I+2) 

19155 IF (TF(I+2K>1)*(TF(I+2K>2> THEN 
GOSUB 3700© GOTO 19150 
19157 IF TF(I+2)*2 THEN P0C=P0C+1 
19160 NEXT I 

19170 PRINT:INPUT "NEJfKE OPRAVY? (A/N). 
.";0P* * 

1918© IF LEFT*lOPx, 1) O “ A" THEN 19270 
19190 INPUT “OPRAVOVANA POLOZKA... _“ 

;SL 

19195 IF (SLOINT(SL) )+(SL<l) + (SL>TF(l)) 
THEN GOSUB 370e0:GOTO 1919© 

19200 INPUT "ZMENIT JMENO? (A/N).» 

>0P* 

1921© IF LEFT*(0Px,l)O"A" THEN 19230 

1922© INPUT " NOVE JIENO.- 

»ADF*(SL) 

19230 INPUT "ZHENIT FORMAT? (A/N)." 

>0P* 

19240 IF LEFT*(0P*.1X>“A" THEN 19260 

1925© INPUT ’ NOVY FORMAT." 

.PR 

19255 IF (PR<>1)*(PR<>2) THEN GOSUB 3700 
0:GOTG 1925© 

19256 IF <TF(SL+2)=2)*(PR=1) THEN POC=PO 
C-1:G0T0 19259 

19257 IF (TF(SL+2)=1)#(PR=2) THEN POC=PO 
C+l 

19258 IF (ADF-TF(1>~POC<0)+(NTF-2-2*TF(1 
>+POC<0) THEN PRINT:PRINT $PC<2>.KS*:PRI 
NT:GOTO 1910© 

19259 TF(SL+2)=PR 
1926© GOTO 19170 

19270 as:CONSOLE:CURSOR 1,17:PRINT Cl,] 
■ mawaB NOVA DATABAZE »* *= *= ==* *« 

19990 TF(3)=-TF(3):TF(2)=POC:AZ=0:RETURN 
20000 REN ♦** H...AKTIVIZACE ZAZNAMU *** 
20005 IF TF(0)*O THEN GOTO 36000 
20010 FOR 1=1 TO TF(0) 

20020 IP(I)=0 
20030 NEXT I 
20990 GOTO 2000 

2100© REM **+ A. .OPERACE AND *** 

210O5 IF TF(O)=0 THEN GOTO 3600© 

2101© GOSUB 3O000 
2103© FOR 1=1 TO TF(O) 

21040 IF IP(I)=0 THEN GOSUB 31006 
21050 P0C=P0C+TF(2):PP=PP+TF(1)-TF(2) 
2106O NEXT I 
21990 GOTO 200© 

22000 REM *** 0.. OPERACE OR *** 

22005 IF TF(0)=0 THEN GOTO 36O0© 

22010 GOSUB 3000© 

22040 FOR 1=1 TO TF(©> 

22050 IF IP(I)=1 THEN GOSUB 31O0© 

2206© P0C=P0C+TF(2):PP=PP+TF(1)-TF(2) 
22070 NEXT l 
2299© GOTO 2©0© 

23000 REM #*+ X...STATISTIKA **• 

23005 IF TF(0)=© THEN GOTO 3600© 

23010 INPUT "Pa02KA >“,SL 

23015 IF (SL<l)+(SL>TF(i) )+(SLOINT(SL)) 


+(ABS(TF(SL+2))=2) THEN GOSUB 37006:GOTO 
2301© 

2303© INPUT ’TAKE STANDARTNI OOCHYLKU? ( 
A/N) >";0P* 

23035 GOSUB 34600 

2304© PRINT ADF*(SL):PRINT 

23042 PP*0 

23043 IF SL-Kl THEN 23050 
23@44 FOR 1=1 TO SL-1 

23046 IF ABS(TF(I+2))=1 THEN PP=PP+1 
23048 NEXT I 

2305© Pl=0:P2=0:P3=0:POC=Tf C D+3+PP 
23060 FOR 1=1 TO TF(O) 

23070 IF IP(I)=1 THEN 2310© 

2308© P1*P1+1 
2309© P2=P2+TF(POC) 

2310© POC=POC+T F(1)-TF 12) 

23110 NEXT I 

2312© PRINT ’ ZAZNAMU =",P1 

23125 PRINT “ SOUCET *’;P2 

23130 IF Pl=© THEN 23990 
2314© P2=P2/P1 

23150 PRINT “ PRUMER =“>P2 

2316© IF LEFT*(0P*, l>O“A M THEN 2399© 
23165 POC=TF(1)+3+PP 
2317© FOR 1=1 TO TF(O) 

2318© IF IP(I)=1 THEN 23200 
23190 P3=P3+(TF(P0C)-P2)^2 
23200 PQC=POC+TF(1)-TF(2) 

23210 NEXT I 

23220 PRINT PRINT ’ STANDARTNI ODCHYLK 
A *";SQR(P3/P1> 

23990 RETURN 

24000 REM *** Y...SELEKCE TISKU *** 
24065 CONSOLE 1,23,1,38=CLS:CURS0R 2,1.C 
ONSOLE 1,23,2,36 

24010 INPUT "KOLIK ZOBRAZIT POLOZEK. 

_-;a 

24011 IF (SL<0)+(SL>TF<1) )+(SLOINT(SL)) 
THEN COSUB 3700© : GOTO 2401© 

24012 IF SL=© THEN OL*="N":TF(3)=ABS(TF( 
3) > -.GOTO 24090 

24G13 INPUT "DO RADKU? (A/N). 

_", a* = PRINT 

24014 IF (LEFT*(QL*,1)="A")*(SL>3) THEN 
SL=3 

24020 FOR 1*1 TO TF(1) 

24030 TF(I+2)=ABS(TF(1+2)) 

2404© NEXT I 

24042 FOR 1=0 TO 6:TS(I)=0 NEXT I 

24045 Pi*0 

24050 FOR 1*1 TO SL 

24060 PRINT "CISLOM;". POLOZKY"; 

24065 INPUT -.“;PR 

24066 IF (PR<l)+(LEFT*<a*,l)<>’A-)»(PR< 
=P1)+(PR>TF(1) )+(PROINT(PR)) THEN GOSUB 

37000.GOTO 24060 

24067 P1«PR 

24068 IF LEFT*(a*,l)<>"A’ THEN 24074 

24069 IF PR-Kl THEN 24073 

24070 FOR J*1 TO PR-1 

24©71 IF A6S(TF(J+2))=2 THEN TS(I+3)=TS( 
I+3)+-l 

24072 NEXT J 

24073 TS(I)=PR:TS(O>*TS(0)+1 

24074 TF(PR+2)*-ABS(TF(PR+2)) 

24075 IF (LEFT*(0L*,1X>"A")*(P1=TF(1)) 
THEN 24090 

24080 NEXT I 

24090 PRINT;INPUT -ZOBRAZIT JMENA POLOZE 
K? (A/N).JS* 

24190 as:CONSOLE:CURSOR 1,17:PRJNT Cl,] 

24996 RETURN 

30000 RBI *++ SUBRUTINA AKTIVACE 1 ♦+» 
3001© INPUT "POLOZKA >’>a 
30015 IF (SL<1)+(SL>TF(1) )+(SLOINT(SL)) 
THEN GOSUB 37000:GOTO 30010 
3002© INPUT -<,> NEBO = (KTERA Z NICH?) 
>"iOP* 

30025 IF (LEFT*(0P*,1X>->")*(LEFT*(0P*, 
1)<>"=")*(LEFT*(0P*,1)<>“<■) THEN GOSUB 
37600:GOTO 30620 

3003© IF ABS(TF(SL+2))=1 THEN IW>UT “HOD 
NOTA >";PR:GOTO 30640 
36635 INPUT “HODNOTA >-;PR* 

30040 POC=6:PP=0 
30650 FOR 1=1 TO SL 

36060 IF ABS(TF(1+2))=2 THEN P0C=P0C+1:G 

OTO 36080 

36070 PP=PP+1 

3068© NEXT I 

3609© PP=TF(l)+2+PP 

3010© POC=TF( D+PGC 

36990 RETURN 












31600 REM *** SUBRUTINA AKTIVACE 2 *•* 
31010 IF ABS(TF(SL+2))=2 THEN 31070 
31620 IF LEFT*<0Px, 1)=**<** THEN IF PR>TF< 
PP) THEN 31110 

31630 IF LEFTx<0px,l)="=" TFCN IF PR-TF( 
PP) TF€N 3111© 

31640 IF LEFTx(0PX/l)=“>“ THEN IF PR<TF( 
PP) THEN 31116 
31650 GOTO 31996 

31070 IF LEFTx(OPx,l )="<;“ THEN IF PRx>LE 
FTx( AOFx(POC)-LEN(PRx) ) THEN 31110 
31080 IF LEFTx<OPx,l)=“=“ THEN IF PRx=LE 
FTx(ADFx<POC),LEN(PRx) ) THEN 31110 
31090 IF LEFTx(OPx,!)=■>■ THEN IF PRx<LE 
FTx(AOFx(POC),LEN(PRx)) THEN 31116 
31100 GOTO 31996 
31110 IP(I)=0 : RETURN 
31990 IP(I)=1:RETURN 
32006 REM »* WAITING *** 

32610 GET lx ; IF (LEFTx(lx,l)<>“ ")*(L£FT 
x(lx,l)<>-Q“) THEN 32016 
32990 RETURN 
33066 REM *** UVQD *** 

33065 CONSOLE = CURSOR 0,0 

33O10 CSx=“ ===================== 


33020 KSx=" : 

33030 PRINT Cl,3 CSX 

3304O FOR 1=1 TO 16:PRINT Cl,3 KSx; : NEXT 
I 

33056 PRINT Cl,3 CS* 

33066 FOR 1=1 TO 6=PRINT Cl,3 KSx; : NEXT 
I 

3307© PRINT Cl,3 CSX; 

33680 CSx=“-" 

33090 KSx="I I" 

33160 CURSOR 12,3:PRINT CSX, 

33116 FOR 1=4 TO 11:CURSOR 12,I=PRIN3 KS 
X; : FEXT I 

33126 Cl^fSOR 12,12:PRINT CSx, 

33130 CURSOR 12,9:PRINT CSx; 

33140 CURSOR 16,5:PRINT “DATABATE", 

33150 CURSOR 16,?.PRINT "RIDS"; 

33160 CURSOR 14,10.PRINT “V3.2 <4.8.87)* 

33170 CURSOR 15,11:PRINT “(C) SVEHLA"; 
33180 CURSOR 15,14.PRINT “STISKNI 
-33190 KSX="*** KAPACITA PREKROCENA ! *** 

33200 PSx=" *** PRAZDNA DATABAZE ! ***“ 
33210 CSx=" *** CHYBNY VSTUP ! ***“ 
33990 RETURN 

34000 REM «* KONSOLA HORN I *** 

34016 CURSOR 2,1 
34026 CONSOLE 1,16,2,36 
34036 CLS 
34996 RETURN 

35060 REN *** KONSOLA DQLNI *** 

35016 CURSOR 2,18 
35026 CONSOLE 18,6,2,36 
35030 CLS 
35996 RETURN 

36006 REM *** PRAZDNA DATABAZE **+ 

36065 GOSUB 34006 

36010 CURSOR 5,5:PRINT PSx 

36996 RETURN 

37000 REM *** CHYBNY VSTUP *** 

37016 PRINT:PRINT SPC<5),CSx : PRINT 
37990 RETURN 

38006 REM *** KAPACITA PREKROCENA *** 
38005 GOSUB 34006 
38619 CURSOR 5,3:PRINT KSx 
38990 RETURN 

39009 REM «* OSETRENI SYST. CHYBY *** 

39019 GOSUB 37000 

39990 RESUME 

5060© CLS:FOR 1=6 TO NTF 

50061 PRINT ADFx(I);TAB(25);IP(I),TF(I) 

56605 GET IX;IF LSFTx(lx,l)=" “ THEN GOS 

UB 32000 

56067 IF LEFTx<Ix,i)="Q" THEN 50990 
56010 NEXT I 
56990 RETURN 
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I I 

I DATABA7E I 

1 RIBS I 

I I 


I V3.2 (4.8.1VB7) I 
I <C> SVEHLA I 


STISKNI ? 


PRIKLAB P 0 U Z I I I 
BATABA7F RIBS 


- ZAVEUEN1 V BASICU : 

READY 

LOAB "RIDS-JSS (C)' 

FOUND 'RIDS-JSS<C)" 

LOADING "RIDS-JSS(C)" 

READY 

RUN 

RIDS 

JSS(C)-19ts7 

DEFINOVAT CESKOU ABECEBU ? <A/N) > A 
JE NUT NY SOUBOR CHI s >CtSKY PCG< • 
i PLAY 


I I 

I BATABAZF I 

I RIDS I 

I I 


I V3„2 (4.8.198V) I 
I (C) SVEHIA 1 


STISKNI ? 


PRIKA7 VYZNAM 


?.INFORHACE. 0 PR1KAZFCH 

R.ST AV DATABAZE 

C.POLOZKY DATADAZE 

+CN3...P0SUV UKAZATELE. VPRED 
-rN3...P0SUV UKAZAT ElE VZAD 

I.NALE/ENI ZAZNAHU 

S.JAKO L SE ZHENOU 

E......ZGBRAZEN1 uDSAHU POLOZKY 

V.JAKO E SE ZHENOU 

BCN3...ZRUSENI ZAZNAHU 

I.VLG2ENJ ZAZNAHU PREB BEZNY 

B.PRIBANI ZAZNAHU NA KONEC 

PCN3...ROZEPSANI ZAZNAHU 

BALSJ PR1KAZY? (A/N) > A 

PRIKAZ VYZNAM 


H.PRIBANI POLOZKY 

N.PREJHENOVANI POLOZKY 

F.ZKUSENl POLOZKY 

U.UL02ENI DA1ABAZE NA CHT 

Z.ZAVEDENI DATABAZE Z CM1 

G.VYTV0REN1 DATABAZE 

K.ZRUSENJ DATABAZE 

H.AKT1VIZALE ZAZNAHU 

A.._AK1IV1ZACE - 0PERAC1 AND 

0..-AKTIV1ZACE - OPERALI OR 

X.STATISTIKA BAT 

Y.SELEKCE T1SKU 

Q.KONEC PRACE S BATABAZ1 


CEKEJTE PROSJH ! 


JHENO NOVE DATABAZE.LIKE 

PUTVRDTE VYTVORENI (A/N).A 

POCET P0L07EK DATABAZE..._3 


POCET POLOZEK FORMATU 2.2 

POLOZKA 1 

JHENG....PRIJHEN1 

F0RHAT...2 

PGL02KA 2 

JHENO....JHENO 
FORHAT ... 1. 

POLOZKA 3 

JHENO_TELEFUN 

FORHAT... 1 


NEJAKE GPRAVY? (A/N)...A 

OPRAVOVANA POLOZKA.2 

ZHENIT JHENO? (A/N).N 

7.MENJT FORHAT? (A/N).A 

NGVY FORHAT.2 

NEJAKE OPRAVY? (A/N).N 

*C 

1. PRIJHEN1 FORHAT = 7 

2. JHENO FORMAT = 2 

3. TELEFON FORMAT = 1 


DATABAZE ! LIDE 
ZAZNAMU : 0 
POLOZEK : 3 

BEZNY ZAZNAM i 0. 


AKTIVNICH ZAZNAMU : 0 

,v \ 


KOI IK ZOBRAZIT POLUZEK.3 

BO RADKU? (A/N).A 

CI3L0 1.POLOZKY.? 

CISI.O 7.PUL0ZKY....1 

CISCO 3.POLOZKY.3 


ZOBRAZIT JMENA POLOZEK? (A/N)...A 

mikroetektronika 59 




















































1. fc‘RIJMfcNl ) KRATKA 

2. JHENO > JANA 
3- TFI.fc.HJN > 3271 

*B 

1. PRIJnfc.Nl ) 1VANIC 

2. JMfc.NO > JOJfcfc 

3. TELEFON > 4132 

*- 

0 KOI. IK > 3 

JHENQ PRIJHfc.Nl TELEFON 

JANA KRATKA 3271 

*p 

KOI IK > 999 

JHENO PRIJHfcNl TELEfcON 

JANA KRATKA 3271 

JOSEF IVANIC 4132 

*F 

CISLO POLOZKY > 1 
OBSAH = IVANIC 
tiV 

C1SL.0 POLU/KY > 3 


KOI.IK > 1 

DATABAZE : LIRE 
ZAZNAHU : 2 

POLOZEK 53 - 

BE7NY ZAZNAH : 2. 

AKTIVNICH ZAZNAHU : 2 

0 KOI.IK > 2 

JMFNO PRIJHfcNl TELfcfcON 

JANA KRATKA 3271 

*P 

KOLIK > 10 

JHENO PR1JHENX TELEFON 

JANA KRA1KA 3271 

PETR HANN 1427 

*X 

POLUZKA > 3 

TAKE STANRAR1N1 ODCHYLKU? (A/N) ) A 

TELfcfcON 

ZAZNAHU = 2 

S0UCE1 * 4690 

PRUHER ^ 2349 


EXISTUJIC1 DATABAZI ZRUSIT?(A/N)) A 
JHENO DATABAZE 2 CHI > LIRE 

4 PLAY 

HESLO? > SHARP 

DATABAZE i LIRE 
ZAZNAHU : 2 
POLOZEK : 3 

BEZNY ZA2NAM : 1. 


AKTIVNICH 7A7NAHU : 2 


KOLIK ZGBRA2IT POLOZEK.....3 

DO RADKU? (A/N).N 

CISLO 1.POLOZKY...1 

CISL O 2.POLOZKY. j2 

CISLO 3.P0L02KY...3 


Z0BRA7I1 JHfcNA POLOZEK? (A/N)...A 


PREDCHAZEJICI POLOZKA > 1 
JHENO HOVE POLOZKY > VEK 
F0RHA1 NOVE PGLUZKY ) 1 

DATABAZE : LIRE 
ZAZNAHU : 2 
POLOZEK : 4 

BEZNY 7A2NAH : 1. 


AKTIVNICH ZAZNAHU s 2 


«B 


*R 


*L 


*R 


OBSAH » 4132 
NOVY OBSAH > 4232 


1. PRIJHEN1 > HANN 

2. JHENO > PEiR 

3. TELfcfcON ) 1427 


DATABAZE : LIRE 
ZAZNAHU : 3 
POLOZEK : 3 

BFZNY ZAZNAH : 3. 

AKTIVNICH ZAZNAHU : 3 


POLOZKA > ? 
OBSAH > JANA 


JHENO 


PRIJHENI TELEFON 


JANA 


KRATKA 


3271 


«S 


POLOZKA > 3 
OBSAH > 4232 

JHENO PRIJHENI TELEFON 
JOSEF IVANIC 4232 

NOW OBSAH > 4132 


DATABAZE : LIRE 
ZAZNAHU : 3 
F'OLOZFK : 3 

BFZNY ZAZNAH : 2. 

AKTIVNICH ZAZNAHU : 3 


60 


mikroelektronika 


«A 


STANDARTN1 GBCHYl.KA - 92? 


POLO/KA > ) 

<»> NERO * (KTFRA ?. N1CHV) ) * 
HORNOTA > TOKAN 

DATABAZE : LIRE 
ZAZNAHU : 2 
POLUZEK : 3 


#fc 


BEZNY ZAZNAH 


: 2 . 


*0 


AKTIVNICH ZAZNAHU : 0 


POLOZKA > 3 

(,> NEBU * (KTERA Z N1CHV) > < 
HODNGTA > 2000 

DATABAZE : LIDE 
ZAZNAHU : 2 
POLOZEK : 3 


BEZNY ZAZNAH 


: 2 . 


*P 


AKTIVNICH 7AZNAHU s 1 


KOLIK > 3 

JHENO PRIJHENI TELEFON 


*H 


*U 


#N 


*C 


*P 


PETR 

HANN 

1427 

DATABAZE 

: LIRE 


ZAZNAHU 

: 2 


POLOZEK 

: 3 


BE7NY ZAZNAH 

; 2- 

AKTIVNICH ZAZNAHU 

: 2 


CHRANIT ZAPIS? (A/N) > A 
HESLO > SHARP 


RUSENA POLOZKA > 4 

DATABAZE - L.1DE 
ZAZNAHU : 2 
POLOZEK : 3 

BFZNY ZAZNAH : 1. 

AKTIVNICH ZAZNAHU : 2 


PRFJHfcNUVAVANA POLOZKA > 3 
HOVE JHENO > JH. 


1. PRIJHENI 

2. VEK 

3. JH. 


KOLIK > 3 


FORHAT = 2 
FGRHA1 = 1 
FORHAT - 2 


1. PRIJHENI > KRATKA 

2. VEK > 0 

3. JH. > JANA 


«K 


1.PRIJHfcNl > HANN 


2.VE.K > 0 


3.JH. > PF.TR 


POT VRRTfc! <A/#I) > A 

I 

I 

1 DATABAZE 

I 

I RIDS 

1 

I 

I 

I V3.2 (4.8.1987) 

I 

I (C) SVEHfc.A 

I 


STISKNI ? 


k RECORD.PLAY 


#Q 


READY 

******«*JHt«*#*tttt«tt««*«*tt*»***»««**»*»*ft* 
























Jan Krej£i, BouWova 1104 , 19a 00 pntm 9 


Pro vytvoFeni programu SkicAk mne 
inspirovalo nAkofik skuteAnosti. PFe- 
devSIm jsem potFeboval pro nAkterA 
avA programy ck>konate graficky pro- 
vedenA obrazovky bud* jako Avodni 
obrazovku, nebo funkAni AAst progra¬ 
mu (napHklad mapy, piAnky a podob- 
nA). DAle to byl mfij koiega mg. LibeA, 
ktery vytvAFel obrazovky tak, ie si 
nejprve pfipravil a dokon al c promyslei 
svGj nAvrh mimo poAitaA, napFfktad na 
papffe a ton pak pomoci milimetro- 
vAho papiru rozioiil na jednotlivA bo¬ 
dy, tak jako je tvoFena obrazovfca. Tyto 
body pak pfenesi jako jednotlivA bajty 
do basicovAho programu (do DATA), 
vytiskl obrazovku, nahrAI ji a tak s nf 
byte moinA praoovat dAt. Tato metoda 
se mi zdAla jako jedna z nejdokonalej- 
iich, ale tak pracnA, ie jsem se rozhodi 
ntjakjm zpfisobem ji uiehAit. Samo- 
zfejmA, 2e nejdokonatej&i by byte roz- 
toiit ligdi z teievizni kamery, vytvofit 
videodigitizAr, anebo si jej kouprt, Ai 
pouift jinou mechanickou metodu, ne¬ 
bo dokonatej&i programovy prostfe- 
dek. Alev tAdobA jsem mAikdispozici 
pouze programy, kterA pracovaly na 
obrazovce dostj hrubA a obraz vytvAFe- 
hf pomoci Aar a obrazcQ, nebo 
i pfimym kresienfm na obrazovku po- 
"moci svAtonAho pera nebo myii. 



ZaAal jsem proto pracovat na progra¬ 
mu, ktery by vyuiival shora uvedenou 
metodu s rozloienfm pfedem pfiprave- 
nAho nAvrhu na jednotlivA body a jejich 
systematickym pfenesenim do pamAti 
poAitaAe. Pro rozklad pFedlohy se mi 
nejlApe osvAdAil pruhledny milimetrovy 
papfr se zdOraznAnym rastrem 8 mm, 
tedy osm bodO. PouifvAm formAt A4, 
ktery je svymi rozmAry optimAInf pro 
rozklad kre9eb, tisku i fotografii. Pru- 
svitny papfr pFiloiim na kresbu, umis- 
tim do zvolenA poiohy a odeAftAm 
jednotlivA osmice bodu (v podstatA 
bajty) ve zdOraznAnAm AtvereAku 8x8 
bodC a vklAdAm je pomoci funkce 
INPUT programu SkicAk do pamAti 
Spectra. Postupuji systematicky od 
levAho horniho rohu obrAzku, po jed- 
notiivych FAdcfch ai k pravAmu dol- 
nfmu rohu. 

Po violent vSech AAstf programu do 
pamAti se .program spustf pffkazem 
RUN. To piati i pro pFipady pFi pferuSe- 
nf nebo vypadnutf z programu. 


Hiavnl nabidka („menu“) 

Spustime-H program, ocitneme se 
v hlavnf nabfdce (menu). Na obrazovce 
se objevf nAzev programu, Afsio jeho 
verze a seznam funkci nAbidky 
(v rAmeAku). Funkci je celkem pAt. 
OznaAeny jsou vidy Aislem a nAzvem. 
K jejich vyvolAni je tfeba stisknout 
pFisluSnou Aisiici. 

1 — EDITOR 

Musfme zvolit jednu ze tFi pracovnfch 
pamAti. Moinost prAce se tFemi „obra- 


zovkami" ocenime pFi modifikaci jii 
hotovych obrazovek, pFi jejich mfchAnf 
a prolinAni. Po zvoleni Afsla pracovni 
pamAti se dostaneme do EDITORu. Ten 
bude popsAn samostatnA v nAsledujici 
kapitole. 

2 — LIST 

Tato funkce je urAena pro prohlfieni 
obsahu jednotlivych obrazovek. Stis- 
kem libovolnA dalAi klAvesy (kromA 
klAvesy „Q“) listujeme jednotlivymi 
obrazovkami, jejichi Aislo blikA vidy 
v pravAm hornim rohu obrazovky. 
NAvrat do hlavni nabidky je klAvesou 


3 — LOAD 

Umoini pFeAist data z mgf pAsku do 
jednA ze tFi pracovnich obrazovek. 
ZvoienA obrazovka se informativnA zo- 
brazf. NAvrat do hlavnf nabidky je 
automaticky. 

4 — SAVE 

Na mgf pAsek bude podfe volby zazna- 
menAn obsah jednA ze tFi obrazovek 
(oblasti pamAti). 


Obrazovka 

Od adresy 

DAIka 

1 

40000 

6912 

2 

46912 

6912 

3 

53824 

6912 


Z toho vyplyvA, ie pFi nahrAni do 
obrazovky je nutnA uloieni bliie speci- 
fikovat, nebo pouiit pFikazu SCREEN^. 
PFi vyvolAni se zobrazi informativnA 
zvolenA obrazovka. NAvrat do hlavnf 
nabidky je automaticky. 


5 — HELP 

Funkce popisuje vtastnosti poveiu EDI¬ 
TORu v pFfpadA, 2e ztratfte orientaci pFi 
obsluze programu. PostrAdA pouze 
popis vedlejSi funkce kurzorovych 
klAves EDfTORu. Ta bude popsAna 
v nAsledujici AAsti. NAvrat do hlavnf 
nabidky je automaticky. 

Popis EDITORu 

KiAvesou „1“ z hlavni nabidky a po 
volbA pracovni obrazovky se do- 
stAvAme do EDITORu — nositele my§- 
ienky programu. Siouii k pFenAAeni 
grafickA informace z pFipravenA pFed- 
lohy a k dafSf upravA obrazu pomoci 
nAkolika poveiu. 

Obrazovka je rozdAlena do dvou 
AAsti. Ve spodnfch dvou FAdcich (v 
editaAni zAnA) je nabidka povelO EDI¬ 
TORu a souFadnice kurzoru. Tim mQie- 
me pohybovat pomoci kurzorovych 
klAves 5,8,7,8 po zbyvajici, horni AAsti 
obrazovky. Povely aktivujeme stiskem 
poAAteAnfho inverznA zduraznAnAho 
znaku na klAvesnici poAHaAe. Destruk- 
tivnA pusobicf povely, pfi kterych do- 
chAzi k podstatnym a nevratnym 
zmAnAm na obrazovce, volAme souAas- 
nym stiskem klAves znaku a klAves 
CAPS SHIFT nebo SYMBOL SHIFT. 

Program umoiftuje prAci v celAm 
rozsahu obrazovky (192 bodu — 24 
FAdku). Dva FAdky jsou vAtAinou skryty. 
Objevi se ai po najeti kurzoru do 
zminAnA oblasti. Blikajici kurzor vyme- 
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zuje oblast pro vstup grafickych infor- 
mact — oblast 8x8 bodu. Je to 
v podstatfe t>6in4 tiskovS pozice, kterou 
d4le budeme nazyvat znakovka. 

Kurzorovd kl^vesy mohou plnft je§t§ 
jednu pomocnou funkci. Pri stisku 
kurzorov6 kl4vesy (5, 6, 7, 8) z4roveft 
s kl4vesou SYMBOL SHIFT dojde 
k pFekopfrov4nf znakovky z mlsta kur¬ 
zoru na vedlej§f pozici urCenou stisknu- 
tou kurzorovou ktevesou. Tato funkce 
nenf v programu nikde uvedena, ani ve 
funkci HELP hlavnf nabfdky. 

Popis povelu EDITORu 

INPUT 

Hlavnf povel, kterym pFen4$fme in- 
formace z predfohy n&kolika zpusoby. 

Stiskem pouhd kl&vesy „l“ vstou- 
pfme do grafickdho INPUTu. Uprostred 
obrazovky se n4m zobrazf osmkr4t 
zv&t§en4 znakovka, na kter4 }e kurzor. 
Oblasti PAPER jsou vyznafieny znakem 
„0“ a oblasti INK tmavou plnou zna- 
kovkou. PH invertovandm obrazu je to 
obr&cen6. V editadnf z6n& objevt 
nov4 nabfdka s koment&Fem. Kurzo- 
rem ve zv§t§end znakovce m uibeme 
pohybovat pomocf kurzorovych k!4ves. 
KI6vesou „0“ m§nfme pod kurzorem 
oblast z INK na PAPER a obr4cen&. 
Povel CLS plnf dv§ funkce, prostym 
stiskem „C“ se obnovf puvodnf grafick4 
informace ve znakovce, nebo se sou- 
Casnym stiskem CAPS SHIFT se cel4 
znakovka vymaie. 

Povelem „Q“ — QUIT opouStfme 
zad4v4nf na dand pozici a vracfme se 
bud do editoru, nebo pokra&ujeme 
v pln£nf znakovky vpravo od souCasnd 
pozice, 5i na daISfm F4dku, pokud jsme 
plnili poslednf tiskovou pozici na pred- 
chozfm F4dku. 

Druhou variantu povelu INPUT vyvo- 
l&me stiskem souGasnfe s CAPS 
SHIFT. V tomto pHpad6 budeme 
kaldou tiskovou pozici, na kter6 je 
kurzor, plnit po jednotlivych bajtech 

— osmkr&t zad&me hodnotu. PH 
vkIGdcinf jednotlivych hodnot je zobra- 
zena takd nabfdka variant vkl£d£nf. 
Muieme totii hodnoty zadGvat ve tfech 
Ciselnych soustav4ch, nebo vytisknout 
na pozici kurzoru znak, nebo celou 
pozici vyplnit jednou hodnotou. M4me 
takd moznost se vr4tit k zad4v4nf od 
prvnrho bajtu. PH violent pr&zdndho 
Fetfezce ukonCendm ENTER vynech£me 
jeden bajt. Ten zust6v6 nezm&ndn. 
Takovymto zpusobem je moind m&nit 
ve znakovce pouze jeden nebo n&kolik 
bajtu. Zpusob zad4v4nf ur&fme prvnim 
znakem ve vkl£tdan6m Fet&zci. Nabfdka 
tfechto znaku je v prvnfm editaCnfm F4d- 
ku. N&vrat z tohoto typu povelu je auto- 
maticky. 

Podobnym zpusobem, jako tyto dv§ 
varianty povelu INPUT, pracujf i pro- 
gramy pro vytv4Fenf novych znakovych 
souboru (ASCII, UDG), napFfklad TY- 
POGRAPH nebo 40 UDG a pod. Nic 
n4m nebr4nf pouift program SKICAK 
i tfmto zpusobem, staCf si uv§domit, 
kde jsou v pamfeti uloleny jednotlivd 
obrazovky. Tam by se ukt4daly i nov§ 
vytvofend znakovd soubory. Po vytvo- 
renf by je bylo nutnd pFemfstit na 
mfsta v pamfeti podle na§eho z4m£ru 
a zm&nit prfsIuSnd systdmovd promdn- 
n6, pro ASCII prom&nnou CHARS 

— 23606/7 a pro UDG prom&nnou 
UDG — 23675/6. 
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MEM 

Funkce usnadftuje prenos a „mnoie- 
nf" stejnych znakovych pozic na obra- 
zovce. Stiskem klAvesy „M" se souCas- 
nym CAPS SHIFT zaznamen4me zna- 
kovku pod kurzorem do mezipam&ti. 
Vyvolat na pozici kurzoru ji pak muie- 
me kolikr4t chceme stiskem k!4ves „M* 
a SYMBOL SHIFT. 


Dal§i funkce pracujf s celou obrazov- 
kou a jsou urCeny pro upravu v&t§fch 
iGstf nebo celych obrazovek. 

BARVA 

Vyvol&nfm aktivujeme novou nabfd- 
ku, kterG n&m nabfzf tri moinosti. 
Zmfenit INK nebo PAPER v celdm 
obraze, nebo celou obrazovku inverto- 
vat — INV. N&vrat do EDITORu je 
automaticky. 

COPY 

Provede kopii obrazovky na tiskAm§ 
* (ZX PRINT a jeho ekvivalenty). Kopfruje 
v§ak vSech 24 F^dek. 


DEL 

Funkce DELETE je z nejdestruktiv- 
n§j§ich. M& dv6 podoby. Prvnf, vyvo- 
I4van4 stiskem kl4ves „D“ souCasnd 
s CAPS SHIFT, male oblast Display 
file, tj. oblast pam4ti, kter4 urCuje, kde 
je INK a kde PAPER (prvnfch 6144 
bajtO obrazovky). Druh4, aktivovan4 
stiskem kl4ves „D“ a ..SYMBOL 
SHIFT, male oblast atributu, tj. oblast, 
kter4 urCuje barvy a dal§f vtastnosti 
znakovych pozic (poslednfch 768 bajtu 
obrazovky). 

EXCH — EXCHANGE 

Povel, ktery umolftuje zm4nu pra- 
covnf obrazovky. 

NEW 

Nejdestruktivn&j§f, stiskem kt4vesy 
„N“ sou£asn4 s CAPS SHIFT se male 
cel4 pracovnf obrazovka. 

OVER 

Tato funkce smfch4 obsahy dvou 
obrazovek — pracovnf se zvolenou. 





znakovkdcb posouvd oblast atributu. 
Ve v§ech pffpadech jde o tzv. destruk- 
tivnf scroll, to znamend, is co je mimo 
obrazovku, je vymaz&no. 

Funkce spolu s povelem OVER n£m 
dovolf pfesng rozmistit a zkombinovat 
vytvofenA dfla. 


obrazovkami od adresy 60 736. Jsou to 
asl 4kB pamdti, kterO roohou byt 
vyuiity pro da&f rozSffenf a vyiepSenl 
programu. Pro roziffenf basicov6ho 
programu nonl jii mfsto. Pro jebo 
sprivnou funkci je nutnO vypustit po- 
znAmky v r&dclch REM. 



ySpnclnS. + 
do editacn^— 

N^zonyJX^ 


/ vyvolej / 

'cety obroz /qq^ 331 2 


r testes 
klavesy 


f zmen INK 
na PAPER 


/ tiskni 
f znak , 
'zo st J 


/urcem' typuJ 
f hodnoty I 
tisk bajtu / 


12k scrotluj I 

fe^ri/ 2 -^ 3190 

o ttsk nobid./ G0SuB 3232 


^ test ^ 
klavesy 


zvetsi • 
pocitadlo 


editocni' 


^est ^ 
klavesy 


/ vyvolej / 

fcely obraz /GOSUB 3312 


f tiskni 
navrzenou 
znakovku 


tiskni / 

nabidku / GOSUB 3232 


I tiskni novou 
potohu kurzoru 


Popis struktury a funkce 
programu 


Funkce nAvratu do hlavnl nabldky. 


Po aktivaci stiskem klavesy „R“ mu> 
feme pomocf kurzorovych kteves po- 
hybovat obrazovkou do vSech smSru 
a to tfemi zpusoby. Samotnym stiskem 
ndkterd kurzorovO ktevesy se posouvct 
(scrofluje) display file po jednom bodu. 
Se soudasnym stiskem CAPS SHIFT se 
posouv& display file danym smdrem, 
ale po jednom znaku (osmi bodech). 
Pfi stisku se SYMBOL SHIFT se po 


Uleienl v pam6ti 

Program Skic&k je v pamdti poCftaCe 
uloien ve tfech Itestech — basicovy 
program, strojov6 rutiny a pamfif obra- 
zovek, vlastn§ date programu. Uloieni 
jednotlivych {test! je patmO z obr. 1. 
Podstatnou (test pam&ti zabfr& Basico¬ 
vy program, podporovany ve svO funkci 
rutinami ve strojov6m k6du, kter6 jsou 
umist&ny na konci pamOti pfed UDQ. 
Obrazovky jsou uloieny t§sn4 za basi- 
covym programem asi uprostfed pa- 
m6ti RAM. Jedind volnd pamfif je za 


Struktura a funkce j 

programu f 

FunkCni diagramy programu Skktek 
jsou na str. 62, kde je {test hlavnl 
nabldky a na str. 63, kde je pops&na 
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strudnd funkce EDtTORu. V diagra- 
mech jsou orientadnd uvedena dfsla 
rddkQ. Program Skicdk nahrajeme 
s autostartem od Fddky 6000 a strojovy 
kdd ulozime na pdsku za ndj. V Fddcfch 
od 7000 je v programu uloiena infor- 
mace o rozmfstdnf deskych znaku 
v UDG. 

Struktura a ftinkce EDITORu 

EDITOR — funkce „1“ hlavnf nabfdky 

— je ulozen mezi rddky 2800 a 5000. 
Jeho grafickd schema je na str. 63. 
Jednd se o podobnou strukturu, jako 
v pripadd hlavnf nabldky, je zde ale 
i nejsloiitdjdf problem programu 

— pohyb kurzoru po obrazovce 
a vyhodnocenf jeho pozic v prfpadd 
prdce na nejniiSich dvou rddcfch obra- 
zovky. To v§e md za ukol podprogram 
od Fddku 3408, ktery je opakovand 
voldn po testu kldvesnice na volany 
povel. Dal§f, vnorend podprogramy 
tohoto podprogramu, jsou vyuilv&ny 
takd ndkterymi funkcemi editoru (IN¬ 
PUT a MEM). 


Popts pouiitych strojovych rutin, 
rutin v ROM a neobvyktych vlastnosti 
BASICu. 

Rutiny strojovdho k6du zadfnajf od 
adresy 64 599. Prvnf je rutina COPY 

— 24 rddku, vyuifvd podprogramu 
ROM 3762. DalSf rutina uilvd povel 
ROLL pro posuv display file o znak dolu 

— 64609. Rutina 64682 posouvd obd 
ddsti obrazovky o znak dolu. Ndsiedu- 
jfcfch sedm rutin je poui it o ze zn d m dho 
programu SUPERCODE. Prvnf dvd 
(64744 a 64756) slou2f pro prenesenf 
obsahu viditelnd obrazovky do pracov- 
nf pamdti a naopak. Tyto rutiny vyuifva- 
jf skoro vSechny povefy a funkce 
programu. Rutiny 64784 a 64828 ne- 
jsou vyuiity, zustaly v pamdti po upra- 
vdch pfedchozich pracovnfch verzf. 
Prvnf vymdnf obsahy obrazovky a pra- 
covni pamdti a druhd naplnf urdeny 
obddlnfk v obrazovce jednfm znakem. 
Ndsiedujfcf tfi podprogramy pouiivd 
funkce BARVA. 64858 mdnf INK 
v celdm obraze, 64883 mdnl PAPER 
v celdm obraze a 64809 provede inverzi 
obrazovky. Pak ndsleduje rutina funkce 
OVER — 64914 a za nf rutiny pro funkci 
ROLL. 64935 posune Display file o znak 
vlevo, 64956 vpravo, 64978 posune 
Display file o bod vlevo, 64995 o bod 
vpravo, 65012 o bod nahoru a 65168 
o bod dolu. Posuv atributO Ffdf rutiny 

— 65103 vlevo, 65125 vpravo a 65147 
nahoru. 

DalSf rutiny jsou pro mazdnf jednotli- 
vych oblastf obrazovky — 653% maie 
atributy a 65342 maie Display file. Od 
adresy 65368 zadind uiivatelskd grafika 
se znaky deskd abecedy (viz Fddek 
7000). 

Program pouftvd ve svd funkci nejen 
tdchto rutin, ale i ndkterd programy 
ROM a zmdny systdmovych promdn- 
nych, ale takd v manudlu nepopsand 
funkce Basicu pro tisk v editadnf zdnd 
(Fddek 3236). Pro mazdnf editadnf z6ny 
void rutinu 3438, pro zmdnu barvy 
editadnf z6ny mdnf systdmovou pro- 
mdnnou BORDCR — 23624, pro zmdnu 
podtu editadnfch Fddku mdnf systdmo- 
vou promdnnou DF_SZ — 23659 a pro 
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scroll obrazovky nahoru o fddek void 
rutiny 3190 riebo 3582. 

Ndmdty pro datSf vytepdenf 
a rozdffenf programu Siacdk 

Kaidy program, tak jako jind jc Ilia 
lidskdho inteiektu a rukou, je moind 
dotvorit — zlepSit, zjednoduSit a „po- 
lidStit". Program SKICAK v. 1.0 nenf 
v tomto ohledu iddnd vyjfmka, zdd se 
mi, ie spfSe naopak. Mym prapuvod- 
nfm cflem bylo dovdst program k jakds 
takds dokonalosti vytvofenfm grafic- 
kdho editoru typu GEM a ovlddat jej 
joystickem, mySf nebo svdtelnym pe- 
rem. OvSem dlovdk mfnf a vdci se mdnf. 
Objevil se program ART STUDIO a tak 
jsem skromnd ustoupil a zjednoduSit 
svOj progrdmek tak, aby byl i vedle 
tohoto „vefikdna“ uiitedny a ales pod 
ddstednd doplnil ndkterd jeho funkce. 
Rdd bych vSak v tdto ddsti upozornil na 
jistd slabiny a rezervy programu. 
V prvnf Fadd postrddd mfsto pro rozSf- 
Fenf BASICu. To by se dalo reSit bud 
posunutfm obrazovek smdrem ke konci 
pamdti, anebo vyuiitfm prdzdndho mf- 
sta nad nimi a pFevedenfm ndkterd 
ddsti BASICu do strojovdho kddu, na- 
pFfklad Ffzenf kurzoru. BASIC takd 
muieme mfrnd „zahustit“ upravou jeho 
struktury — vypuStdnfm pozndmek, 
nebo vytvofenfm podprogramu pFi 
ndkofikerdm opakovdnf operacf (viz 
Fddky 114,116,118 — test kldvesnice). 
Tak# zmenSenf podtu Fddku a vyuiitf 
funkce VAL pro ukldddnf celodfselnych 


promdnnych by uvolnilo ndjaky pro- 
stor. Ve funkci se dd program zdokona- 
lit pfedevSfm v prdci s barvami. Zvoleny 
tisk kurzoru (transparentnf obarvent 
INK8, PAPERS na Fddcfch 3432 at 
3448) se projevf zejmdna pFi zpraco- 
vdvdnf obrazovek s mnohobarevnymi, 
btikajfcfmi a zdurazndnymi plochami; 
kurzoF ndm bude na viditelnd obrazov¬ 
ce v tdchto mfstech ruSit FLASH 
a BRIGHT. PFi nejbliidfm datdfm vyvo- 
Idnf obrazu z pamdti se vSak obraz 
obnovf v puvodnfm stavu. Zde by bylo 
vhodnd program zdokonalit tak, aby 
testoval hodnoty barev pFed umfstdnfm 
kurzoru a navracel je do puvodniho 
stavu po jeho daldfm pohybu. Rovndi 
by stdlo za to doplnit program vhodnou 
rutinou pro obsiouienf chyb a prerude- 
nf, td by se dalo vyuift i pFi ndvratu 
z jednotfivych funkci a do htavnf nabfd- 
ky. Odpadly by tak testy kldvesy ,,0“. 

*** S * i c £ k Ul.0 *** 


1 - EDITOR 
a - LIST 
3 - LORD 
4. - SRUE 
5 - HELP 


*** dan Krejfcx *** 
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zaddtek UDG — 65368 


konec pamdti 65536 




1 REM * PROGRAM SKICAK * 

2 POKE 23624,56: CLS 

3 DIM W(8): LET 02=156: LET R 
AM=40000 

4 LET X 1=0 : LET yi=0: LET zve 
=0: LET rOP=0: LET Sk=0: LET S*= 

LET 01=64: LET POT=0: LET X = 
O- LET y=0: LET kurz=22528+X+y*3 
2: LET a t r =ATTR (X,y) 

5 REM *»enut _ 

6 CLS : PRINT AT 7,10;“1 - ED 

JTQp" 

15 PRINT AT 0,10;"2 - LIST" 

16 PRINT AT 11,10;"3 - LOAD 

17 PRINT AT 13,10; "4 - SAUE 

18 PRINT AT 2,4;"*** S k i C 4 

k, 01.0 ***" 

19 PRINT «l;AT 0,12;"© 1986" 

20 PRINT AT 20,6;"*** Jan Krej 

21*PRINT AT 15,10;"5 - HELP" 

22 PLOT 27,27: DRAU 0,115: DRA 
U 199,0: DRAU 0,-115: DRAW -199, 
0 

30 IF INKEY*=“1" THEN GO TO 28 

00 

32 IF INKEY*="3" THEN GO SUB 3 
268: GO TO 6 

34 IF INKEY*="4" THEN GO SUB 3 
256: GO TO 6 

36 IF INKEY*="2" THEN GO TO 10 

0 

38 IF INKEY *='*5“ THEN GO TO 50 

00 

40 60 TO 30 
100 REM LIST 

114 LET 02=156: LET Raw=40000: 
60 SUB 3312: PRINT FLASH 1; BRIG 
HT 1;AT 4,28;"1": PAUSE 0: IF IN 
KEY*="q" OR INKEY*VO" THEN GO T 
O 2 

116 LET 02=183: LET Ran=46912: 
GO SUB 3312: PRINT FLASH 1; BRIG 
HT 1; AT 4,28; "2": PRUSE 0: IF IN 
KEY*=“q" OR INKEY*="0" THEN GO T 
O 2 

118 'fcET 02=210: LET Rap=53824: 
GO SUB 3312: PRINT FLASH 1; BRIG 
HT 1; AT 4,28; "3": PAUSE 0: IF IN 
KEYS=“q" OR INKEY*="Q" THEN GO T 
0 2 

120 GO TO 114 
2800 REM EDITOR 
2810 CLS : GO SUB 3364 
2820 GO SUB 3232 
2830 GO SUB 3600 

2840 IF INKEY*=”I" THEN GO TO 30 
00: LET X =x +1 

2844 IF INKEY*=“r" THEN GO SUB 3 

_620: GO TO 2620 

2848 IF INKEY*=" i" THEN GO TO 40 
00: LET X=X *1 

2850 IF INKEY* Vo" THEN GO SUB 3 
384 

2855 IF INKEY*VC" THEN GO SUB 3 
312: RANDOMIZE USR 64599: GO SUB 
3308. GO SUB 3232 
2860 IF INKEY* = "e" THEN GO SUB 3 
364: GO SUB 3232 

2864 IF INKEY*="H" THEN GO SUB 3 
800 

2868 IF INKEY* V." THEN GO SUB 3 
810 

2870 IF INKEY*="b" THEN GO SUB 3 
320 

2880 IF INKEY*VN" THEN GO SUB 3 
404 , 

2882 IF INKEY*=CHR* 205 THEN 60 
SUB 3312: RANDOMIZE USR 65326: G 
O SUB 3308: GO SUB 3232 
2884 IF INKEY*="D" THEN GO SUB 3 
312: RANDOMIZE USR 65342: GO 5UB 
3308: GO SUB 3232 
2890 IF INKEY*="q" THEN GO TO 1 
2900 IF INKEY*="(" THEN LET fcaa = 
1: GO SUB 3524: GO SUB 3460: GO 
SUB 3500 

2910 IF INKEY*W THEN LET kan = 
-1: GO SUB 3532: GO SUB 3460: GO 
SUB 3500 

2920 IF INKEY*="&" THEN LET kan = 
32: GO SUB 3460: GO SUB 3480: GO 
SUB 3540: GO SUB 3S00: IF zve=l 
THEN LET y=21: LET rop=0: GO SU 
B 3312: GO SUB 3232: LET z\e=0 
2930 IF INKEY* = " " THEN GO SUB 3 
492: LET kaa=-32: GO SUB 3460: G 
O SUB 3516: GO SUB 3500 
2940 GO SUB 3408: GO TO 2830 
3000 REM Bnput 
3002 GO SUB 3460 
3004 FOR i=0 TO 1792 STEP 256 
3008 BEEP 0.05,1/256 v _ 

3012 INPUT AT 0,2; "Bap tft ;f5-hex ; B 
in;B-znak;Htop";AT 1,2; "zad£vas 
byte C. "; (i/256+1);AT 1,21; LIN 
E s* 

3016 IF S*=”S“ OR SS="S" THEN LE 
T i =0 : GO TO 3000 
3020 IF £*=”" THEN GO TO 3060 
3024 IF S*(1)="Z" OR S*(ll="Z" T 
HEN GO SUB 3116: GO TO 3064 
3028 IF S*(l)="tt" THEN GO SUB 32 
08: GO TO 3052 

3032 IF S*(l)="*" THEN PRINT AT 
y+(l AND por=l> + (2 AND por=2),x; 
S-* (2) : LET kaa=0: GO SUB 3460: G 
O SUB 3500: GO TO 3064 
3036 IF S * (1) =“B“ OR S*(i)Vb' T 
HEN GO SUB 3200: GO TO 3052 
3040 IF CODE S*>=58 OR CODE S*< = 
47 THEN PRINT ttl;AT 0 ,i;"Spatne 
zapsany znak Ml": BEEP 0.8,20: 
GO TO 3012 

3044 IF UAL SS >255 THEN PRINT »1 


;RT 0, l; “PCi tiS vetke Cisto H!" 

: BEEP 0.2,24: BEEP 0.4,20: GO T 
O 3012 

3048 LET wej=UAL S* 

3052 IF we ^ >255 THEN .PRINT ttl;AT 
0,1;"Pfi111 vetk6 Cisto !!•": B 
EEP 0.8,20: GO TO 3012 
3056 POKE 16384+abe+x+(y+por-yy) 
*32+i,wej: POKE Ran*abe+x + (y+por 
+rop-yy)*32 + i,we j 
3060 NEXT i 

3064 FOR U =0 TO 8: BEEP 0.02,4+U 
: NEXT u: PAUSE 0.5 
3068 print #1;AT 0,l;"Pozice kur 
zoru x=";x;" yV;y+por 
3072 PRINT #1;AT l,l;"Chcei POkr 
aCovat v z4pisu A/N 7" 

3076 IF INKEY*=“n" THEN RANDOMIZ 
E USR 3438: BEEP 0.08,3: BEEP 0. 
09,10: GO TO 2820 

3080 IF INKEY* = "a" THEN GO SUB 3 
100: GO TO 3092 
3084 GO TO 3072 
3038 LET x=x+l 

3092 FOR w=8 TO 0 STEP -1: BEEP 
0.01,RND*10-W: NEXT W 
3098 PRINT BRIGHT 1; FLRSH 1; OU 
ER l; PAPER 8; INK 8;AT y+sk+por 
,X;" ": PRINT OUER 1; INK 8; PAP 
ER 8;AT y+sk+por-(l AND x=0)-(21 
AND X =31 AND y=21) ,X-1+(32 AND 
X =0)-(21 AND X =31 AND y=21);" ": 
GO TO 3004 

3100 IF x=31 AND POT =2 THEN LET 
X =0: LET y=0: LET fOP=0: LET por 
=0: LET a be =0: LET yy=0: GO SUB 
3312: GO SUB 3232: RETURN 
3104 IF x =31 AND y+rop>=21 THEN 
LET x =0: GO SUB 3284 : RETURN 
3108 IF x=31 AND y*rop<21 THEN L 
ET x =0: LET y=y+l: RETURN 
3112 GO TO 3088 

3116 IF S*(2 TO )=“" THEN RETURN 

3118 IF UAL S*(2 TO )>255 THEN R 
ETURN 

3120 FOR e =0 TO 1792 STEP 256 
3124 POKE 163S4+abC+X+(y+por-yy) 
*32+e,UAL s*(2 TO )-. POKE Ran+ab 
c+x + (y+por+rop-yy)*32+e,UAL s*(2 
TO ) 

3128 NEXT e: RETURN 
3200 LET we j=UAL ("BIN "+S*(2 TO 
LEN S*) ) 

3204 PRINT HI; AT 0,1;" Deciding 
";we j: PAUSE 20: RETURN 
3208 LET wej=0: LET kruh=0 
3212 FOR W=LEN S* TO 2 STEP -1 
3216 LET wej=wej+((CODE S*(w)-48 
-7*(CODE s*(w)>=65))*16tkruh) 
3220 LET kruh=kruh+l 
3224 NEXT W 
3228 RETURN 

3232 POKE 23624,112: RANDOMIZE U 
SR 3438 _ „ 

3236 PRINT #1;AT 0,0;" 0ARUA:BOP 
Y BEL: SXCH : BNPUT : BEU : " 

3238 PRINT 81;AT 1,0;" HEM:BUER: 

Burr:BOLL: " 

3240 RETURN 

3244 IF por=0 THEN RETURN 
3248 BEEP 0.01,32: IF por=l THEN 
LET saer=0: LET por=0: LET y=21 
: LET rop=0: GO SUB 3312: GO SUB 
3232: GO TO 2830 

3252 IF POf=2 THEN LET P0T=1: LE 
T sner =3: RETURN 
3258 CLS : INPUT "nizev obrizku 
"; LINE z* 

3260 GO SUB 3364: POKE 23736,187 
: 5AUE ZtCODE Raa,6912 

3261 CLS : PRINT AT 10,3;"Chcete 
zkontrotovat A/N ?" 

3262 IF INKEY*="n" THEN GO TO 32 
65 

3263 IF INKEY* = "a" OR INKEY * = "A" 
THEN GO SUB 3312: UERIFY Z*CO0E 
Ran: CLS : PRINT AT 10,10;“Dodr 

y M": BEEP 0.2,33: PAUSE 4: GO 
TO 3265 

3264 GO TO 3262 

3265 RETURN 

f 269 CLS : GO SUB 3364: INPUT "n 
zev nahravky "; LINE x* 

3270 CLS : PRINT AT 10,6;"Nahr4v 
4 se obrazek" 

3272 LOAD X*SCREEN* 

3276 GO SUB 3308 

3280 RETURN _ 

3284 IF y <21 AND por=0 THEN RETU 
RN 

3288 IF por=0 THEN LET por=l: GO 
SUB 3548: GO TO 3296 
3292 IF por =1 THEN LET por=2 
3296 LET y*19: LET rop=2: PRINT 
#l;AT 1,26;"y=“;y +por +rop;" " 
3300 BEEP 0.01,30: LET Sner=2 
3304 RETURN 
3307 REM zaznan 

3308 POKE 64745,01: POKE 64746,0 
2: RANDOMIZE USR 64744: RETURN 
3310 REM ukaz 

3312 POKE 64757,01: POKE 64758,0 
2: RANDOMIZE USR 64756: RETURN 
3315 REM vyaen 

3316 POKE 64785,01: POKE 64786,0 
2: RANDOMIZE USR 64784: RETURN 
3318 REM @ARUA 

3320 RANDOMIZE USR 3438: PRINT tt 
1;AT 0,1;"Zvolte stisken Cista": 
PRINT UXi AT 1,1;"1 = INV ; 2 = 

TMK 'X - PflPFR" 

3324*IF INKEY*="1" THEN GO TO 33 
48 

3328 IF INKEY*="2" THEN GO TO 33 


3332 IF INKEY*="3" THEN GO TO 33 
44 

3336 GO TO 3324 

3340 INPUT "Cisto inkoustu ";ink 
: POKE 64859,ink: GO SUB 3312: R 
ANDOMIZE USR 64858: GO SUB 3308: - 
GO SUB 4860: GO TO 2820 
3344 INPUT "Cisto papiru ";pap; 
POKE 64884,pap: GO SUB 3312: RAN 
DOMIZE USR 64883: GO SUB 3308: G 
O SUB 4860: GO TO 2820 
3348 GO SUB 3312: RANDOMIZE USR 
64809: GO SUB 3308: GO SUB 4860: 
GO TO 2820 

3352 IF po r =1 THEN RANDOMIZE USR 
3190: PRINT OUER 1;AT 21,0;" 

3356 IF por=2 THEN RANDOMIZE USR 
3190: PRINT OUER 1;AT 21,0;" 

RANDOMIZE USR 3190: PRINT OUER 1 
; AT 21,0;"_ 

3360 GO SUB 3232: RETURN 

3363 REM SXCH 

3364 INPUT "Cisto paa6ti?il-3) " 

; Ron 

3368 IF Ron=l THEN LET 02=156: L 
ET Ran=40000 

3372 IF Roa=2 THEN LET 02=183: L 
ET Ran=46912 

3376 IF Ron=3 THEN LET 02=210: L 
ET Ran=53824 

3380 GO SUB 3312: GO SUB 3352: R 
ETURN 

3383 REM HUER 

3384 INPUT "Cisto pan€ti(l-3) - 
";aer: POKE 64919,64 

3388 IF »er=l THEN POKE 64920.15 
6 

3392 IF ner=2 THEN POKE 64920,18 
3 

3396 IF aer=3 THEN POKE 64920,21 
0 

3400 GO SUB 3312: RANDOMIZE USR 
64915: GO SUB 3308: GO SUB 3352: 
GO SUB 3232: RETURN 

3403 REM BEU 

3404 POKE 23624,a t r: CLS : GO SU 
B 3308: GO SUB 3232: RETURN 

3408 REM rizeni kurzoru 

3409 LET nast=l 
3412 LET saer =0 

3416 IF INKEY*="5" THEN BEEP 0.0 
03,X *10: IF X >0 THEN LET sner = l: 

LET X =X-1: LET nast=l: GO TO 34 
32 

3420 IF INKEY*=“6" THEN GO SUB 3 
284: BEEP 0.003,y +10: IF y<21 AN 
D por=0 THEN LET saer=2: LET y=u 
+1: LET nast=l: GO TO 3432 
3424 IF INKEY *=”7" THEN GO SUB 3 
244: BEEP 8.003,y*10: IF y>0 AND' 
por*0 THEN LET y*y-l: LET saer= 
3: LET nastsl: GO TO 3432 
3428 IF INKEY*="8" THEN BEEP 0.0 
03,X *10: IF X <31 THEN LET saer=4 
: LET X =X + 1: LET nast=l: GO TO 3 
432 

3432 IF nast=l THEN PRINT BRIGHT 
l; FLASH l; OUER 1; PAPER 8; IN 
K 8;AT y*sk*por,x;" " 

3436 IF saer=l THEN PRINT OUER 1 
; PAPER 8; INK 8;AT y*sk+por,x+l 

3440 IF saer=2 THEN PRINT OUER 1 
; PAPER 8; INK 8,AT y+por-l+st,x 

3444 IF saer*3 THEN PRINT OUER 1 
; PAPER 8; INK 8;AT y+l+por+sk,x 

3448 IF saer=4 THEN PRINT OUER 1 
; PAPER 8; INK 8;AT y+por+sk,x-l 

3452 LET sk=0: LET nast=0 
3456 RETURN 

3460 LET cba=0: LET yyy=0 
3464 IF y <=7 THEN LET abc=0: LET 
yy=0: RETURN 

3468 IF y >7 AND y<=15 THEN LET a 
be=2048: LET yy=8: RETURN 
3472 IF y >15 AND y<=23 THEN LET 
abe=4096: LET yy=16: RETURN 
3476 RETURN 

3480 IF por=2 THEN BEEP 0.02,25: 

BEEP 0.03,30: GO TO 2830 
3484 IF y=7 OR y=IS THEN LET kaa 
=0: LET C ba =2048: LET yyy=7: RET 
URN 

3488 RETURN _ _ _ 

3492 IF y=0 THEN BEEP 0.02,23: B 
EEP 0.03,33: GO TO 2940 
3496 RETURN „ _ 

3500 LET vpr=0: FOR i=0 TO 1792 
STEP 256: BEEP 0.002,30 
3504 LET vpr*PEEK (16384+abc*x+( 
y+por-yy)*32+i) 

3508 POKE 16364+abc+cba+x*kaa+(y 
*por-yy -yyy )*32+i,vpr: POKE Ran* 
a be +cba+x+kaa + (y +por +rop-yy-yyy > 
*32+i,vpr 

3512 NEXT i: RETURN ^ „ 

3516 IF y=S OR y=16 THEN LET kaa 
=0: LET cba =-2048: LET yyy = -7 

§§24 I^xaSl AND por =2 THEN BEEP 
0.01,30: BEEP 0.01,34: trO TO 29 
40 
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3523 RETURN 

3533 IF x=0 THEN BEEP 0.01.35: B 
EEP 0.02,36: GO TO 29*0 
3536 RETURN 

35*0 IF y=21 AND POr =8 THEN GO S 
UB 35*8: LET rop*2: LET y=19: LE 
T S»er=3: LET n»St*l: GO SUB 3*3 
3: LET zve *1. RETURN 
35**» RETURN 

35*8 POKE 3362*.58: CLS : GO SUB 
3313: POKE 23659,0: RRNDOMIZE U 
SR 3583: RRNDOMIZE USR 3583: POK 
E 23659,2: POKE 2362*,113: GO SU 
B 3232: RETURN 

3600 PRINT 81;RT 1,31;"X*";x;" ” 
3602 PRINT #1;RT 1,26,"y;y+por 
+rop;“ ” 

360* RETURN 
3620 REH BOLL 

3623 GO SUB 3312: POKE 2362*,56: 

GO SUB 36*0: GO SUB 3308 
362* IF por=l OR P0r=2 THEN RRND 
OMIZE USR 3190: RANDOMIZE USR 31 
90 

3628 RETURN 

36*2 LET a*=INKEY* 

36** LET n x (65103 RND a.* = "X") + (6 
5125 RND a*«••(••)+(651*7 RND ** = " 
'*•> + (6*682 RND a* = "«c" )♦ (65258 RN 
D a$sCHR* 11)+(6*609 RND a*=CHR« 
10)+(6*935 RND a*=CHR$ 8)+(6*95 
6 AND a*»CHR* 9)+(6*978 RND *$ = “ 
5")+(6*995 AND a*="8">+(65012 RN 
D a*»‘7“)+(65168 RND a$="6") 

36*6 IF a**:”©" THEN GO SUB 3312: 
GO TO 2820 

38*8 IF a*«"«r THEN RETURN 
3650 IF n < >0 THEN BEEP 0.001,30: 

RRNDOMIZE USR n 
3652 GO TO 36*0 

3800 REM OEM tan 

3801 GO SUB 3*6*: LET sv»l 

3802 FOR i®0 TO 1792 STEP 256: B 
EEP 0.002,30 

380* LET «HSV)»PEEK (1638*+abC+X 
+ (y+por-yy ) *32+i) : LET svssv+1 
3808 NEXT i: RETURN 

3810 REM OEM wen 

3811 GO SUB 3*60: LET SV*1 

3812 FOR i=0 TO 1792 STEP 258: B 
EEP 0.002,30 

381* POKE 1638*+abC+cba+x + (y+P 0 r 
-yy-yyy)*32+i,w(sv): poke Ran+ab 
c+cba+x + (y+por+rop-yy-yyy) *32+i , 
m (sv) 

3816 LET SV*SV+1 
3818 NEXT i: RETURN 
*000 REM BNPUT 

*001 BEEP 0•03,*0: BEEP 0.0*,20 
*002 LET XZ=1: LET yz=l. LET a =5 
. LET b = li 

*003 POKE 2362*. 112: RRNDOMIZE l> 
SR 3*38: PRINT 81;RT l,6;"lLS:BU 

*00* PRINT 81;RT 0,2;"Owl4d4n» k 
lavesani 5 6 7 8 0 M 
*006 GO SUB 3600 
*010 DIM f $(8,3) 

*018 PLOT 95,63: DRRU 0,65: DRRU 
65,0: DRRU 0,-65: DRRU -65,0 
*020 PLOT 9*.62: DRRU 0,67: DRRU 
67,0: DRRU 0,-67: DRRU -67,0 
*030 PLOT 93,61: DRRU 0,69: DRRU 
69,0: DRRU 0,-69: DRRU -69,0 
*032 PLOT OUER 0;95,63: DRRU OUE 
R 1;0,65: DRRU OUER l;65,0: DRRU 
OVER l;0,-65; DRRU OVER l;-65,0 
*03* FOR i*l TO 8: PRINT RT »+i, 
b+1; PAPER 5; BRIGHT 1; " 

”: NEXT i 

*0*0 GO SUB 3*6*: LET i*1 
*0** FOR j=0 TO 1792 STEP 256 
*050 LET ppsPEEK (Ran+abc+x + (y+P 
or+rop-yy)*32+j) 

*060 LET f$(i ,1)®STR* (Pp-128>b0 

*070 IF pp-128>«0 THEN LET pp=pp 
-128 

*080 LET f*(i,2)=STR* (pp-6*>=0) 
*090 IF pp-6* > =0 THEN LET ppspp- 

*100 LET f*(i,3)=STR* (pp-32>®0> 
*110 IF PP-32> =0 THEN LET PP*PP- 
32 

*120 LET f*(i,*)=5TR* (pp-16>=0) 
*130 IF PP-16 > =0 THEN LET ppspp- 
16 

*1*0 LET f*(i,5)*STR* (pp-8>=0) 
*150 IF pp~8>=0 THEN LET ppspp-8 
*160 LET fS(i.,6)aSTR* <pp-*>*0) 
*170 IF PP —* > =0 THEN LET ppcpp-* 
*180 LET f*(i,7)=STR* (pp-2>=0) 
*190 IF pp-2>os0 THEN LET ppapp-2 
*200 LET f*(i,8)eSTR* (pp-l>=0) 
*210 PRINT RT a+i,b+1; PAPER 5; 
INK l; BRIGHT 1;CHR* (79+64*(f*( 
i,1)e"l"));CHR* (79+6**(f $(i,2)• 
"1"));CHR* (79+64*( f * ( i,3)»”1”)) 

;CHR* (79+6**(f*(i,*)s"l"));CHR* 
<79+6** ( f * (i ,5) *'T) ) ; CHR* (79+ 
6**(f*(i,6)*" 1" >);CHR* (79+6**(f 
*(i,7)r"l"));CHR* (79+6**(f *(i,8 
) b”1*') ) 

*212 LET i*i+l 

*220 NEXT J 

*230 LET C *=INKEY* 

*235 IF C * * *' C “ THEN GO TO *000 
*236 IF C|*"C“ THEN BEEP 0.02,30 
: BEEP 0.03,*0: LET S**”0000": G 
O SUB 3118: GO TO *002 
*2*0 IF c**"5" THEN BEEP 0.01,XZ 
+ l*yz+l: IF XZ >1 THEN LET XZ»XZ- 
1: LET Ssl: LET 00 = 1: GO TO *310 


*250 IF c*b" 6" THEN BEEP 0.01.XZ 
+l*l+yz; IF yz<8 THEN LET yz*yz + 
1: LET Ss2: LET nosl; GO TO *310 
*260 IF c**”?“ THEN BEEP 0.01,XZ 
+l*l+yz: IF yz > 1 THEN LET yzayz-, 
1: LET Ss3: LET no=l: 60 TO *310 
*270 IF C *»"8" THEN BEEP 0.01,XZ 
+ l*yZ +1: IF XZ <8 THEN LET XZ*XZ + 
1: LET So*: LET no»l: GO TO *310 
*280 IF C*b-0- THEN BEEP 0.04,30 
: GO SUB *380 

*290 IF C*B"q" THEN GO TO *800 
*300 GO TO *350 

*310 IF S =1 THEN PRINT OVER 1; P 
RPER 5; INK l; BRIGHT 1;RT a+yz, 
b+XZ+l;" " 

*320 IF s»2 THEN PRINT OVER 1; P 
RPER S; INK 1, BRIGHT 1;AT a+yz- 
1, b+xz;” “ 

*330 IF S*3 THEN PRINT OVER 1; P 
RPER 5; INK 1; BRIGHT 1;AT a+yz+ 
l,b+xz;” " 

*3*0 IF SB* THEN PRINT OVER 1; P 
RPER 5; INK 1; BRIGHT l;AT a+yz, 
b+xz-1;” 

4350 PRINT OVER l;RT a+yz,b+xz; 
FLASH l; BRIGHT 1; ” 

*370 GO TO *230 

*380 LET d*=SCREEN* (a+yz,b+XZ) 
*390 IF d*=”0" THEN PRINT RT a+y 
Z , b >XZ ; "(j" : LET f*(yz,XZ) s a ‘l" : R 
ETURN 

**00 IF d*B“ “ THEN PRINT RT a+y 
Z , b+xz ; “0*‘: LET f $ (yz , XZ) ="0" : R 
ETURN 

*802 GO SUB 3*60: LET i*l 
*808 FOR js0 TO 1792 STEP 256 
*812 POKE Ran+abc+cba+x+(y+por+r 
op-yy-yyy)*32+j,VRL ("BIN "+f*(i 
) ) 

*816 BEEP 0.02,4+i; LET i=i+l 
*818 NeXT j 

*820 RANDOMIZE USR 3*38: PRINT # 
1;AT 0,l;"Pozice kurzoru x*"; 

X ; ’• y=";y+por 

*82* PRINT 81;AT 1,1;"Chcei POkf 
afiovat v zapisu A/N 7“ 

*826 IF INKEY*»"n" THEN BEEP 0.0 
8,3. BEEP 0.09,10: GO SUB 4360: 

60 TO 2820 

*828 IF INKEY*="4” THEN GO SUB * 
8*0: GO TO *83* 

*830 GO TO *826 
*832 LET x«x+l 

4-83* FOR Wb 8 TO 0 STEP -1: BEEP 
0.01,RND*10-«: NEXT w 
*835 GO SUB *860 

*836 PRINT BRIGHT 1; FLASH 1; OV 
ER 1; PAPER 8; INK 8;AT y+sk+por 
, X; ••: PRINT OVER 1; INK 8; PAP 

ER 8;RT y+sk+por-(1 RND x*0)-(21 
RND x b 31 RND y=21) ,X-1+(32 RND 
X =s0) - (21 RND x *31 RND y«=21);" " : 
GO TO *002 

*8*0 IF X*31 RND P0r*2 THEN LET 
X =0: LET y b 0: LET rop*0 : LET por 
=0: LET a be =0: LET yy=0: GO SUB 
3312: GO SUB 3232: RETURN 
*8** IF xb 31 AND y+ roP > =21 THEN 
LET X=0: GO SUB 328*: RETURN 
*8*8 IF X =31 RND y+rop<21 THEN L 
ET x=0: LET y=y+1: RETURN 
*850 GO TO *832 

*360 GO SUB 3312: POKE 2362*.PEE 
K (Ra*+6200) 

*86* IF POral OR por=2 THEN RRND 
OMIZE USR 3190: RANDOMIZE USR 31 
90 

*865 RETURN 
5000 REM HELP 
5002 CLS 

5010 PRINT '"9RRVA: - z»$na bare 

vntfch parane- try v cei6 

obrazovee." _ 

5020 PRINT "SOPY - tisk na ZX 

printru, vSech 2* f 

idek." 

5030 PRINT '"BEL: - s CAPS SHI 

FT naie dis- play file 

se SYMBOL 

SHIFT na2e attributy. 


50*0 PRINT '"SXCH: 
zovky." 

5050 PRINT '"HNPUT: 
o obrazu 
ly HLS-vra i, 

? vyaaz 
UlT-zpei 
iseih* a 


- zn&na obra 


da 


m 


S CAPS SHI 
znakovg ho 


FT 

dnoty" 

5060 PRINT »l;AT 0,7;“stisknfcie 
k i&vesu" 

506S PAUSE 0 
5070 CLS 

5080 PRINT '"ffiEU: - s CAPS SHI 

FT naze konp- letni obra 

zovku." 

5090 PRINT '"BEH 
FT - zaznan 
ozici kurzoru 
Hi . 


66 


mikroelektronika 


SHIFT zapis 
o obrazovky." 

5100 PRINT '"HUER 
razovek." 

5110 PRINT '“BUIT 
h lavni 

5120 PRINT '"0OLL 
zu do sn&ru 
h k lives 
FT inkoust 
SHIFT aitri- 
5130 PRINT #1;AT 0,7;"St*sknSle 
klivesu" . 

51*0 PAUSE 0: GO TO 2 

6000 CLEAR 39999: LOAD •“CODE 

RUN 

7000 REM UDG 

7001 REM 4i?d'iC2<Sii>5UDft6Wf , SCu 

ABCDEFGHIUKLMNOPORSTU 


- S CAPS SHI 
Pixly na p 
do nezipan 
se SYMBOL 
z pan£ii d 

- nichini Ob 

- nivrat do 
nabidky." 

- poson obra 
kurzorov^c 
S CAPS SHI 
SC SYMBOL 
buiy, 


1 REM SKICRK StTOj.kO-d + UDG 
10 FOR i=6*599 TO 6553* 

20 READ a: POKE i,a 
30 NEXT i 


110 DATA 2*3,006,192,033,000,06 
*,205,178,01*,201,033,255,087,01 
7,223,087,229,213.01*,023.006.03 
2,026,119,121,230,007,25*,001,03 
2,002,151,018,0*3,027,016,2*1,01 
3,0*0,021,121,230,007,254,000,0* 
0,024,234,007,032.225,213,017,00 
0,007,167,237,082,289,02*,215,20 
9,225,021,037,12*,25*,079,200,02 
*,201,229,033,000,007,235,167,23 
7,082,235,225,02*.193,033,223,09 
0,017,255,090,001,22*,002,237,18 
*,062,056,806,032,018,027 
120 DATA 016,252,201,017,032,00 
0,00*,025,016,253,065,035,016,25 
3,209,066,197,006,000,075,213,22 
9,017,032,000,167,237,082,209,22 
9,237,18*,225,209,193,120,016,23 
*,2*1,067,119,0*3,016.252,201,01 
7,86*,183,833,000,06*,001,000,02 
7,237,176,201,817,06*,183,033,00 
0,06*,006,027,197,006,000,800,00 
0,000,026,000,000,000,119,035,01 
9,000,016,2*3,193,016,237,201,01 
7,028,028,033,000,06*,006,027,19 
7,006,800,126,2*5,026,119 
130 DATA 2*1,018,035,019,016,2* 
6,193,016,2*0,201,033,000,064,00 
6,024,197,006,000,126,238,255,11 
9,035,016,2*9,193,016,2*3,201,01 
*,06*,033,015,003.017,026,001,06 
9,213,197,067,062,022,215,124,21 
5,122,215,121,215,020,016,2*4,03 
6,193,209,016,236,201,062,000,23 
0,087,087,033,000,088,006,003,19 
7,006,080,126,230,2*8,178.119,03 
5,016,2*8,193,016,2*2,201,062,00 
2,203,039,203,039,203,039,230,05 
6,087,033,000,088,006,003 
1*0 DRTfl 197,006,000,126,230,19 
9.178,119,035,016,2*8,193,016,2* 
2,201,000,001,000,024,017,06*,15 
6,033,000,06*,026,182,119,035,01 
9,011,120,177,832,2*6,201,033,00 
0,06*,OSS,062,192.006,031,035,09 
*,0*3,115,035,016,2*9,11*,035.06 
1,032,2*2,201,033,255,087,022,00 
0,062,192,006,031,0*3,09*,035,11 
5,0*3,016,2*9,114,0*3,061,032,2* 
2,201,033,255,087,014,192,006,03 
2,183,203,022,8*3,016,251,013,03 
2,2*5,201,033.000,06*,01* 

150 DRTR 192,006,032,183,203,03 
0,035,016,251,013,032.2*5,201,03 
3,000,06*,017,000,065,01*,192,00 
6,032,026,119,121,254,002,032.00 
2,151,018,019,035,016,2*3,213,01 
7,22*,000,025,227,025.235,225,01 
3,121,230,007,254,000.032,010,21 
3,017,22*,007,167,237,082.209,02 
*,01*,25*,001,032,010,229,235,01 
7,22*,007,167,237,082,235,225,12 
1,230,063,25*,000,032,806,062,00 
7,132,103,02*,187,25*.001,032,18 
3,062,007,130,087,121.25* 

160 ORTR 001,032.17*.201,033,00 
0,088,002,056,01*,024,006,031,03 
5,89*,0*3,115,035,016.2*9,119,03 
5,013,032,2*2,201,033.255,098,06 
2,056,014,024,006,631.0*3,09*,03 
5,115,0*3,016,2*9,119,0*3,013,03 
2,2*2,281,833,832,088,017,000,08 
8,001,22*,002,237,176,062,056,00 
6.032,018,019,016,252,201,000,03 
3,255,087,017,255,086,014,192.00 
6,032,026,119,121,254.002,032,00 
2,151,018,027,0*3,016.2*3.213,01 
7.22*,080,167,237,082,227 
178 DRTR 167,237,082,235,225,01 
3,121,230,807,25*.008,032,008,21 
3,017,22*,007,025,209,02*.011,25 
*,001,032,007,229,033,22*,087,02 
5.235,225,121,230,063,254,000,03 
2,006,124,21*,007,103,02*,188,25 
*,001,032,18*,122,21*,007,087,12 
1,25*,001,032,175 »281,033,000,06 
*.017,032,06*,229,213,01*,023,00 
6.032,026,119,121,230,007,25*,08 
1,032,002,151,018,035,019,816,2* 
1,013,0*0,019,121,230.007,254,00 
0,0*0,022,25*,007,032,225 
180 DRTR 213,017,000.007,025,20 
9,02*,217,209,225,028,036,12*,25 
*,072,832,20*,201,229,033,000,00 
7,025,235,225,82*,193.033,008,08 
8,001,800,803,062,056,119,035,01 
1,120,177,032,2*7,201,033,000,06 
*,801,000,02*,062,008,119,035,01 
1,120,177,032,2*7,201.198,030,06 
3,156,118,027,003,019,000,062,00 
8,016,0S6,00*,060,088,060,000,0* 
0,816,12*,808,016,032,12*,000,02 
0,088,028,032.832,032,028,000,00 
0,085,006,060,066,068,060 
190 DRTR 000,008,016,056,068,12 
0,06*,060,000,868,060,066,06*,06 
*,066,068,000,060,126,00*,008,01 
6,032,126,000,003,016,068,063,06 
3,060,08*,056,008,016,000,0*8,01 
6,016,056,000,006,016,068,068,06 
8,068,056,000.068.060,06*,060,00 
2,066,060,080,008,082.066,066,06 
6,066,060,000,060,120,068,066,06 
6,068,120,000,0*0,016.120,068,06 
8,068,063,000,808,016,056,068,06 
8,068,056,008,860,12*.066,066,12 
*,068,066,080,0*0,016,056 
288 DRTR 068,120.06**, 060,000,02 
0,008,028,032,032,032,032,000,0* 
0,016,056,86*,856,00*,120,000,01 
0,020,016,856,016,016,012,000,01 
6,800,068,068,868,068,056 
1008 SAVE "code"CODE 6*599,936 
1010 VERIFY "COde-CODE 6*599,936 
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Program ANALOG 2.1 umoiAuje pouift poCftaA Sord MS jako logicky Casovy analyzitor (k poAftaCi must byt 
pripojen modul Basic F a EM-5). Umoiftuje zAznam a zobrazeni tasovych prubAhu osmi nezAvislych logickych 
sigr^Q metodou vzorkovAm. Tato metoda a jejf nevyhody je podrobnA popsAna v [1]. PH zAznamu fete poCitaC 
v urcitych casovych intervalech (doba vzorkovAnf, tv) data ze vstupnfho portu a uklAdA ie do pamAti (24 kB). Po 
naplneni pamAti Ize zobrazit AasovA prubAhy signAlu na obrazovce ve tvaru AasovAho diagramu. 


Pri zAznamu je moino volit vstupnf 
port, vzorkovacf dobu, podmfnku za- 
CAtku nebo ukonCeni zAznamu a typ 
zAznamu (se spu&tAnfm nebo s ukonCe- 
m'm). PH zobrazovAnf se Ize „pro- 
chAzet" celou zAznamovou pamAti, 
mAHt dAIku Casovych useku a kmitoCet 
jednotlivych signAlu, automaticky vy- 
hledAvat ruznA kombinace urovnf atd. 
ZaznamenanA data se daji uchovat na 
magnetofonovA kazetA. BAhem zobra- 
zovAnl je uiivatel prubAinA informovAn 
o okamiitAm Case a logickAm stavu. 

Program se sklAdA ze trf dflCfch 
programu, kterA se postupnA nahrajf 
do poAltaAe. Prvnl program inicializuje 
systAm, definuje predlohy znaku, obsa- 
zenf VRAM atd. DAle nahraje druhy 
program ve strojovAm kAdu (1 kB), 
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T, dT, STAV 


2x MH3226 


Aetna/ 4 

5 

6 
7 


LOOCKA 
ZEM ~ 


10 

BO 

il 

B! 

12 

B2 

13 

B3 

DO 


01 


02 


03 

CS 

DC 
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zasuvka 

pro JOY Sord M5 

■ JA-3 
- JA-1 

■ JA-2 

■ JA-4 

_ spojit se zemi 
u Sort M5-stineni 
zasuvek JOY nebo 
kolik c2 zbsuvky 
PRINTER 


JB-3 

-JB-1 

JB-2 

JB4 


Obvod k pfipojenf m&fenych obvodu 
k podftadi 






ktery je uloien od adresy 7900H 
a obsahuje pomocnA rutiny pro zAznam 
a zobrazeni. Nakonec nahraje viastnf 
obsluiny program, ktery je opAt 
v BASICu. Ten zajiAfuje ve spojenl 
s podprogramy ve strojovAm k6du 
vSechny funkce logickAho AasovAho 
analyzAtoru. 


Parametry analyzAtoru: 

Doba vzorkovAnf: se spuStAnfm 
6,14 jis, 20 ns ai 566,7 ps (krok po 
2,22 ys), s ukonCenfm —31,1 ai 
—566,7 ns (krok po 2,22 ys). ' 
Podet kanAlu: 8. 

Rozsah zAznamovA pamAti: 24 kB. 
Podmfnka spuStAnf nebo ukonAenf: 
Ize zadat u jednotlivych kanAlu 
log. 0, log. 1, nebo bez vyznamu. 


Po nahrAnf vSech tff CAstf programu 
se program ohIAsI nApisem READY. 
Nynf muieme butf spustit zAznam, 
zobrazit Aasovy diagram nebo pracovat 
s magnetofonem. 

PH funkei zAznam nastavime nejprve 
vzorkovacf dobu pomocf kurzorovych 
Aipek. NastavenA doba se prubAinA 
zobrazuje vlevo nahore. Po nastaveni 
poiadovanA doby stiskneme RETURN. 
PotA urfifme, zda chceme podmfnku 
(a/n) a (pHp.) tuto podmfnku v binArntm 
tvaru. Nakonec vloiime adresu vstup¬ 
nfho portu (pozor — dekadicky, nebo 
p?ed hex. Cfslo napsat znak &). Praktic- 
ky pHpadA v uvahu port &50 (analyza 
signAlu z magnetofonu) a port &37 (pro 
pouiitf mAficfho interfejsu — viz obr.). 
Pfi Tv=6,14 ns Ize pro testovAnf nebo 
demonstraci pouift port 1 (AftaA CTC 
#1). Nynf, pokud mAme nastaveno 


spuAtAnf podmfnkou, se spustf zAznam 
po spInAnf tAto podmfnky nebo po 
stisknutf tlaCftka RESET. PamAf se 
zaplnf vstupnfmi daty a vypfSe se opAt 
READY. Nynf mAme opAt moinost si 
vybrat z hlavnfho menu. Pokud bylo 
nastaveno ukonCeno podmfnkou 
(Tv<0), pak se po zadAnf portu nejprve 
zaplnf celA pamAr daty (na vyASfch 
rozsazfch to trvA ai nAkolik sekund) 
a pak se teprve testuje stisknutf RESET 
nebo spInAnf ukonCovacf podmfnky. 
BAhem toho se pamAf stAle cyklicky 
plnf daty. Po RESET nebo spInAnf 
podmfnky se zAznam zastavf a opAt se 
vypfSe READY. 
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spocitej 
hrany mezi 
point a zn 






tisk 
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tisk 

f *0 







cekej na 
stisknuti 
dehokoli 



vykonej 
zmenu polohy 
a stovu 


vstup htedo- 
neho stavu 


PPi funkci zobrazeni se na obrazovce 
objevf 6asov6 prubrthy sign&lu. 
Uprostred obrazovky je sviste preruSo- 
van4 6£ra — ukazatel. Pfi Iev6m kraji 
obrazovky se nach£zf podobnd t&ra 
— znaCka. Ukazateiem muieme pohy- 
bovat tlartftky ; a : . Znartku muieme 
umfstit na iddanou pozici tak, ie na 
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tuto pozici umfstfme ukazatel a stiskne- 
me tlartftko z. Tim umfstfme znadku na 
toto misto. Tlartitky + a * se 
muieme s obrazovkou „pohybovat“ po 
pamSti, tlatftka «- a -> se pouiivaii 
pro rychlejSi pohyb po osmi bodech 
a konertnrt tlaCftka < a > umoini 
pohyb vpfed nebo vzad o cely rozsah 
obrazovky (256 bodu). Vlevo od ukaza- 
teie jsou zelena tfsla, oznaCujfcf disk) 
signdlu. Vpravo je fcfslo, kter6 urCuje 
okamiitou logickou ur overt v mfstS 
ukazateie — ftervenA jednifika nebo 


tisk I 
NENALEZENOll 


cekej r>a_ 
stisknutf 
cehokoli 


pfesuft tom 
pointer 































modrd nula. Na kfivkdch jednotlivych 
kandlu je log. 1 vybarvena CervenS, 
log. 0 modfe a hrany 2lut£. 

Nahofe na Celnlm pa net u se 
prubdinfc zobrazuje okamiity stav 
v mlstS ukazatele v hexadecimAInlm 
tvaru. Pod nfm je zobrazen 6as 
v milisekunddch v mlstS ukazatele 
a dSIka intervalu mezi ukazatelem 
a znadkou. Pomocf tohoto intervalu Ize 
snadno mSfit dSIku impulsO nebo po- 
sun hran jednotlivych signSlu. 

DSIe umoiftuje analyz&tor v reiimu 
zobrazen! tyto funkce: 


t — po zad&nt Sasu v milisekundSch se 
pfeneee ukazatel do prlsiuSnSho mlsta, 
2 — umlstl znaCku na mlsto, kde je 
ukazatel, 

c — pfenese ukazatel na mlsto, kde je 
zna5ka, 

b — umlstl ukazatel na zaCStek pamSti, 
k — umlstl ukazatel na konec pamSti, 
s — po zad&ni stavu (dekadicky nebo 
&hex) pPesune ukazatel na prvnl mlsto, 
kde je tento stav. ProhledSvS se od 
mlsta kurzoru do konce pamSti, 
f — po zad&nl ftlsla kan&lu vypoCItS 
prumerny kmitodet signSlu v intervalu 
mezi ukazatelem a znadkou (vCetnS je- 
jich poloh). KmitoSet se vypoSItS z po- 
Ctu hran v tomto intervalu, proto je 
vhodnS pro vSt§f pfesnost nastavit jak 
ukazatel, tak znaCku na hranu u toho 
kan&lu, kde chceme mSfit kmitoCet. 


e — ukonbi re2im zobrazen! a umo2nl 
opSt vybfir v hlaVnim menu. 

Pozn&mky k pouiiti 
programu: 

Proto2e program mSnl obsah nSkte- 
rych systSmovych promSnnych a uspo- 
fSdSni VRAM, je vhodnS po skonSenl 
pr&ce s nlm inicializovat system 
(CALL 0, vypnutf poiltaCe). Pokud 
chceme bShem programu pfejlt do BA- 
SlCu (napr. zmSna rychlosti nahrSvSnl 
na MGF), Ize tak beztrestnS uCinit v re- 
2imu hlavnlho menu po vypsSnl READY 
stisknutlm CTRL+RESET. PokraCovat 
v programu Ize prlkazem CONT. Upo- 
zorftuji, 2e druhy program v BASICu 
neni v pamSti umlstSn jako obvykle od 
adresy 77F2H, ale kvOli strojovSmu 
programu se nahrdvS od adresy 8001H 
(zajiSfuje inicializaSn! basicovy pro¬ 
gram). 

ZSvSr 

Popsany program prok&2e velmi do- 
brS slu2by pfi analyze a optimAInlm 
nastaveni signAlu z magnetofonu a pfi 
oiivov&nf ruznych perifSrii a jinych 
Clslicovych zaflzenl, kde se nepou2lvajl 
kmitoCty vySSI, ne2 asMOO kHz (napr. 
dSInopis, A/D pfevodnlk s C 520D...). 

Literatura 

[1] Ovod do techniky logickych analy- 
z&torQ. RoCenka sdSlovacf techniky 
— Praha 1987. 


Seznam prom&nnych hlavnlho 
programu a jejich vyznam: 

celo6(seln6: 

CTC ... Casovacl konstanta pro fia- 
sovaC pfi z&znamu (8 a2 
255), 

SIGN ... 1 . .startovacl podminka, 
0. .ukonCovac! podminka, 

G ... podet mist za desetinnou 
Cdrkou pro tisk Casu (2 a2 4), 
HL ... poloha obrazovky v pam&ti 
& AOO ° — &FFFF, 

• • • poloha znaCky v pamSti 
&A000 — &FFFF, 

X ... x-ovS soufadnice ukazatele 
na obrazovce (0 a2 255), 

T ... pomocnS promSnnS, 

Q ... podmlnky startu nebo konce 

z&znamu (0 a2 255), 
t ... maska podmlnky startu ne¬ 
bo konce zdznamu (0 a2 
255), 

I... parametr cykIO, 

C ... Cfslo vstupnfho portu (0 a2 

255). 

re4ln6: 

BASE# ... vzorkovacl doba v mili- 
sekundSch —566.7E-3 a2 +566.7E-3, 
T# — pro vstup Casu. 

fet&zcovfr. 

A$ ... pro vstup povelu, 

B*.. . pro vstup podmlnky v binSrnlm 
tvaru. 


1000 ' 

1018 ' 
1020 ' 
-4030' 
1040' 
1090' 


LOGICKY CASOVY ANALYZATOR 


SCOPWARE COPYRIGHT 1987 
VERZE 2.1 


1060' 

1070' 

1080' Inicializace systemu 
1090' ————— 

1100 ' 

1110 type inti clear 256,69FFC:poke 6701A 
,694 1 poke 67033,3>poke 69FFD.1,9 
1120 ' 

1130' Inicializace VRAM 
1140' ————— 

HS0' 

1160 print “ UZSTVTR" ical1 60E01,0,61000, 
,60800tcal1 60E01.61E00,60800,,0scall 60 
B81,,,62000,61800scall 60E01,0,60800,,62 
C00:call 60860,,66001,,69FFFscall 60E01, 
6FF00,60100,,63A00 

1170 pokes* 670BD,62000spokes* 67090,62000 
1180' 

1190' Inicializace barev 
1200 ' ——————— 

1210 ' 

1220 for I-60C00 to 613FF step 8 

1230 vpoke I,681,6B1,6B1,6B1,6B1,6B1,6B1 

,671 

1240 next I 
1290' 

1260' Inicializace GII obrazovky 
1270' 

1280' 

1290 K-6S0 

1300 for 1-63900 to 63AFF step 640 
1310 for J-I to I+61F 
1320 vpoke J,<K and 6FF> 

1330 K-K+l 


1340 next J,I 
1390' 

1360' Definite znaku a spritu 
1380’ 

1390 vies* 0,0,31,7scl»sX-128 

1400 for I-6A2 to 6CB:stchr “00000000000 

00000“ to Xsnext 

1410 stchr “8000800080008000“ to 6A0:stc 
hr "300088)00800088810“ to 6Al:*iag 2 
1420 for 1—16 to 31:scod I,6A0sscol 1,15 
+<I>23)sloe I to X,64+16*1I mod 8)snext 
1430 stchr "0007050505070000“ to 6A3 
1440 stchr “0002020202020000" to 6A9 
1450 stchr "0020505050200000“ to 6AD 
1460 Stchr "002060202020008®“ to 681 
1470 stchr "0068)902040f00000“ to 6B5 
1480 stchr "00e020e020e00000“ to 6B9 
1490 stchr “0028)60a0f0200000“ to 6BD 
1500 stchr * 00e080e020e00000" to 6C1 


1510 stchr "006088e09068)0000“ to 6C5 
1520 stchr “0000204040400000" to 6C9 
1530 for 1-0 to 7iscod 1,4*I+6ACt scol I, 
2:loc I to X-8,64+16*Isnext 
1540 for 1-8 to 15:scod I,6A4sscol I,4sl 
oc I to X,64+16* <I-8)s nex t 
1530 stchr "002040fe40200000“ to 6 e 2 ,l 
“000S04f004080000" to 683,1 
“0000004848784848" to 681,1 
"3c4299a1a199423c“ 
”0000000000081000“ 
“0000000000281000“ 


to 680,0 
to 684,0 
to 685,0 


1560 stchr 
1570 stchr 
1580 stchr 
1590 stchr 
168)0 stchr 
1610' 

1620' Tisk obrazovek 
1630' ———- 
1640' 

1650 print "W. STAV : 08)01* SCOPWARE 1987 
WW T» 0.000 ms^dT- 0.SHB0 msW“;rptB(3 
2,“-”)s”Menu : <♦+;:*4> t,b,k,s,c,z,f,e 
“?cursor (0,7) jrptSf (32,); **KC 
1660 print ”l"iicail 60CA3 
1670 print "1 <v J. -vli 

LOGICKY CASOVY ANALYZATORWr" srptH(38.“ 

; “71 Tv- 0.0 nSl P—-11-000 

11II 76543210U4-I 6” jrptH(38, ) j "J t 

rptH (38," > ? "7 

1680 print “I i-vll 111 r...SP 

USTENIH II IIII III l.s.v... 

LOAD,SAVE,VERIFY II n /vJi 

III e...ZOBRAZENIII mill 

16"? rptB(38,); "7 “ 

1690 view 0,16,39,23 
1700' 

1710' Basic od 808)0H, nahraj cm a CHAIN 
1720' —=——=====—=— 
1730' 


1740 poke 63001,6FFspokew 6726A.68002,68 
8904,68004told “LAmcset?":chain 


1000' LOGICKY CASOVY ANALYZATOR 

1020 ' 

1030' 

1040' Pocatecni inicializace 
1050' 

1060 CTC-9:BASED-0.024iSIGN-1iG-4 

1070 els:on error gosub BERR:goto SEXIT 

1080' 

1090' Horky start zobrazovani 
1100 ' 

1110aHOT 

1120 HL‘,LAB-6A0890: X-128: goto fiZOBR 
1130' 

1140' Smycka zobrazovani 
1150' 

11609LOOP 

1170 print cursor(8,1):rights(hexH(peek( 
HL+X)),2)?cursor(3,3)s numB((HL+X+65FFF*S 
IGN-1)*abs(BASE#>,S-G,G)scursor(19,3)?nu 
mH((HL+X-LAB)*BASE#,8-G,G> 

1180BKEY:AH«inkeyH 


11909COMMAND 

1200 if A»-“" then goto HKEY else if AB- 

then goto HSPD else if AB-":“ then g 

oto SSPJ else if AS’-" + “ then goto BEST e 

lse if AB="*" then goto HSST else if AB- 

then goto BFBS else if flB«“4“ then g 

oto HFSS 

1210 if AH«"<" then goto 9PGD else if AB 
=">" then goto HPGI else if Afl»"t" then 
goto BTIliE else if Afi=»”s" then goto BSEA 
R else if A«-"e" then goto HEXIT else if 
AB—"c“ then goto BCAR else it AB=“z“ th 
on goto BZNAC 

1220 if AH—“f" then goto BFRQ else if AB 
«"k" then goto BKONEC else if Afi-"b” the 
n goto BBEG1N else goto SKEY 
1230' 

1240' Posunuti pointeru vlevo 
1250 

1260BSPD:if X<1 then X-2S5 else X-X-l 
1270 call 67AE0,,,,X:cal1 67AFC,,.peek(H 
L+X):goto SLOOP 
1280' 

1290' Posunuti pointeru vpravo 
138)0' 

1310BSPI:if X>254 then X-0 else X-X+l 
1320 call 67AE0,,,,X:call 67AFC.,.peek(H 
L+X) :goto BLCX3P 
1330' 

1340' Posunuti obrazku vpred 
1350.' 

1360HSST:if HL>-257 then goto BLOOP else 
HL-HL+1ical1 67A9E,,,LAB-HL,HLical1 67A 
FC,,.peek(W.+X):goto BLOOP 
1370' 

1380' Posunuti obrazku vzad 
1390' 

1400BBSTlit HL<-24575 then goto BLOOP el 
se HL-HL-1:cal1 67A9E,,,LAB~HL,HL:cal1 6 
7AFC,,.peek(HL+X)«goto BLOOP 
1410' 

1420' Posunuti obrazku vpred o osm bodu 
1430' 

1440HFSS:if HL>-264 then goto BLOOP else 
HL-HL+Bscall 67B61,•,LAB~HL,HL:cal1 67A 
FC,,,peek(HL+X):goto BLOOP 
1450' 

1460" Posunuti obrazku vzad o osm bodu 
1470' 

1480SFBS:if HL<-24568 then goto BLOOP el 
sc HL-HL-8:call 67BA8,,,LAB~HL,HL:cal1 6 
7AFC,,.peek(HL+X)I goto BLOOP 
1490'. 

15SM' Posun o obraxovku vpred 
1510' - f 
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;obnov HL 


1520SP6Isif HL>-512 then goto SLOOP els* 
HL-HL+256:call 67A9E, , ,LAB-HL,HL:cal 1 6 
7AFC,,.peek(HL+X)sgoto HLOOP 
1530' 

1540' Posun o obrazovku vz ad 
1550' 

1560BPGD: if HL<-24320 then goto SLOOP el 
se HL-HL-256:cal1 &7A9E,,,LAB—HL.HLscal1 
67AFC,,,peek(HL+X)igoto SLOOP 
1570' 

1580' Umisteni pointeru M konec 
1590' 

1600BKONEC: T—65FFF : goto BPRENOS 
1610' 

1620' Uaisteni pointeru na zacatek 
1630' 

1640BBEGINjT—0: goto BPRENOS 
1650' 

1660' Uaisteni znacky pod pointer 
1670' 

16S0SZNAC:LAB-HL+X:goto SZOBR 
1690' 

1700' Preneseni pointeru na znacku 
1710' 

1720SCAR3 T-LAB-6A000 
1730' 

1740' Prenos pointeru na urcitou pozici 
1750' 

1760SPRENOSsX»12S:if T<128 then X=X-(12B 
-T)else i-f T>65F7F then X-X+T-65F80 
1770 HL«T+6A000-X:goto SZOBR 
1780' 

1790' Preneseni pointeru na dany cas 
1800' 

1810STIME:view 0,6,31,6s input "T Cuts! - 
" % Ttt:view 0,0,31,7:if T#<0 and SIGN-1 or 
T#>0 and SIGN-0 or abs(Tft) >abs(65FFF*BA 
SE#)then goto BTIME else T-eint<T#/BASE# 
>sif SIGN-0 then T—T+65FFF 
1820 goto BPRENOS 
1830' 

1840* Hledani daneho stavu 
1850' 

1860SSEAR:view 0,6,31,6s input "Stav - M ; 
Tsif T<0 or T>255 then goto BSEAR 
1870 call 67B1F,256*T,6FFFF-HL-X+1,,HL+X 
: i-f < <reg (0>mod 256) and 640) *0 then print 
“Nenalezeno !G“; cgoto BCEKEJ 
1880 T-reg (3) -6A001sview 0,0,31,6:goto S 
PRENOS 
1890' 

1900' Zobrazeni obrazovky a pointeru 
1910' 

1920BZOBR3cal1 67A9E,,,LAB-HL,HL:call 67 
AE0,,,,Xs cal1 67AFC,,.peek(HL+X) s goto SL 
OOP 
1930' 

1940' Vstup do povelove obrazovky 
1950' 

1960SEXITBprint "KUVLREADY" 
1970BEXCOHiAS—inkeyfi:if Afi« M " then goto 
BEXCOM else if AB«"e“ then goto BRET els 
e if AB-”r" then goto SRUN else if Afi-“1 
“ then goto SLOAD else if Afi-"s” then go 
to BSAVE else if Afi*“v" then goto BVERIF 
Y else goto BEXCON 
1980' 

1990' Navrat do zobrazeni 
2000 ' 

2010BRETsprint "KU“3goto SHOT 
2020 ' 

2030' Nahrani dat na magnetofon 
2040' 

2050BSAVE:input ” .WJmeno souboru s " ;A 

Bsif l*n(Afi>>9 then goto BSAVE else save 
"cmt:"+Afi,69FFD,6FFFF:goto BEXIT 
2060' 

2070' Kontrola spravnosti nahravani mgf 
2080' 

2090BVERIFY:input ” ~WJmeno souboru 8 “ 
sAfisif len<Afi)>9 then goto BVERIFY else 
verify ABsgoto BEXIT 
2100 ' 

2110' Nahrani dat z magnetofonu 
2120 ' 

2130BLOA0: input “ -vjfJeeno souboru t “ ; A 
Biif len(AB)>9 then goto SLOAD else old 
"cmt:“+AB:CTC-peek (69FFE):SIGN-peek <69FF 
D) 

2140 if abs(CTO >8 then BASE#-CTC*2.2222 
22222222E-3# else BASE*-0.00614# 

2150 if SIGN-0 then BASE#—BASE# 

2160 viewsprint cursor<5,3>;numfi(1000*BA 
SE#,4,2):view 0,16,39,23cgoto BEXIT 
2170' 

2180' Spusteni sberu dat 
2190' 

2200SRUN 

2210 print “UNastav Tv s.RETURN!” 
2220BDISPTVsviewsprint cursor<5,3)snumfi< 
1000*BASE#,4,2) 

2230BADJTV: Afi-inkeyfisif AS-*" then goto 
BADJTV else if ascii(AB)-13 then goto B 
HOTOVO 

2240 if Afi-"s" then if 5IGN-0 and CTC<25 
5 then CTC-CTC+1 else if SIGN-1 and CTO 
8 then CTC-CTC-1 else if SIGN-1 and CTC- 
8 then SIGN-08CTC-14 
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2250 if AS—": * then if SIGN-0 and CTC>14 
then CTC-CTC-1 else if SIGN-0 then SIGN 
-lsCTC -8 else if CTO253 then CTC-CTC+1 
2260 if CTC -8 then BASE*-0.00614# els* B 
ASE#«CTC*2.222222222222E-3# 

2270 if SIGN-0 then BASE#—BASE# 

2280 goto BDISPTV 
2290BHOTOVO 

2300 poke 69FFD,SIGN,CTC»if CTC<19 then 
G-4 else if CTO 184 then G-3 else G-2 
2310' 

2320' Vstup a vypocet podminky 
2330' 

2340BPODMsQ,E—0 1 view 0,16,39,23s input "H. 

»vMPODMINKA s {a.nl.CaxCG.l.xJI'^sAB.B 
fi 

2350 if AB-"n” then BB-rptfi( 8 , 1 Q- 6 FF 
sgoto BDISPOD 

2360 if len <BB)< >3 then goto BPODM 
2370 for 1-0 to 7 
2380 Afi-midB<BB, 8 -I,1) 

2390 if Afi—"0" then E=E+2"I:goto BDALSI 
2400 if Afi-"l" then E-E+2"'I :Q«Q+2^I 1 goto 
BDALSI 

2410 if Afi<> B x” then 1-10 

2420BDALSI:next I 

2430 if 1=10 then goto BPODM 

2440HDISPOD:view:print cursor(20,3);BB:v 

iew 0,16.39,23 

2430* 

2460‘ Vstup vstupniho portu 
2470' 

2480BINPORTSinput “ KWXWX PORT 3 ";C 
2490 if O0 or 0255 then goto filNPORT 
2500 viewsprint cursor<34,3);rightfi(hexfi 
(C),2):view 0,16,39,23 
2510' 

2520' Vlastni spusteni sberu dat 
2530' 

2540 print “Wa «w a a wWCekam na 

spusteni “;:if Afi="n“ then print “RESET. 
” else print “podmiffw+nkou.“ 

2550 if SIBN-0 then call &7BFF,„CTC*256+ 
C,Q*256+E els* if CTOB then call 67900, 
,CTC*256+C,Q*236-*-E else if AB-“n“ then c 
all 67A8F..C els# call 67962,,C,Q*256+E 


CALL 

POP 

RET 


KONEC 

HL 


BEGIN: 


DI 


;uz je-zakaz 

POP 

DE 

S vyber n avr.adr, 

LD 

SP,(OLDSP) spuvodni SP 

PUSH 

HL 

sposledni adresv 

PUSH 

DE 

jnavratova adr. 

CALL 

01C2H 

sCTCINT . 

LD 

A, BE OH 

;EI pro VDP 

OUT 

<11H) , A 


LD 

A,31H 

i do R1 VDP 

OUT 

(11H> ,A 


CALL 

0CA3H 

jVREGI 

CALL 

RET 

01DFH 

S CTC3SP 

INI 


sseber data 

CP 

H 

5 H—07 

El 


;zas povol 

RET I 


;a zpatky 

DI 


;inicializace 

LD 

A.43H 

;DI pro CTC 

OUT 

(BOH),A 

;ctc #0 

OUT 

(01H),A 

;ctc #1 

OUT 

(03H),A 

;ctc #3 

LD 

A.0C7H 

5 etc #2 bude 

OUT 

(02H),A 

jv modu citac 

LD 

HL,INTCT2 s adresa 

LD 

(7004H) 

,HL ;ppgm sberu 

POP 

HL 

3 navrat.adr. 

LD 

(OLDSP) 

,SP sschovej SP 

LD 

SP,OLDSP—2 ;novy SP 

PUSH 

HL 

;uloz nav.adr. 

LD 

HL.0A000H 3 zacatek RAM 

RET 


3 pro data 


2560 poke 69FFF,peek(6A000)sgoto BEXIT 
2570' 

2580' Mereni kmitoctu 
2590' 

2600BFRQ 

2610 if HL+X—LAB then goto SLOOP else vi 
ew 0,6,31,6:input “Linka I0..7J - “jTsif 
T<0 or T>7 then goto HFRO else if HL+X> 
LAB then call 67BDD,T*256,.HL+X-LAB+l,LA 
B els* call 67BDD,T*256,.LAB-HL-X+l,HL+X 
2620 if reg<3)<2 then poka»w 67268,0 
2630 print “f “ ;Ts “ -“jnu«iH<reg<3)*500#/a 
bs(BASE#)/abs(LAB-HL-X),7,2)j“ Hz“» 

2640' 

2650' Cekani na stisknuti klavesy 
2660' 

2670BCEKEJ:repeatsAH-inkeyfisuntil Afi<>““ 
2680 printsview 0,0,31,7:goto BCOMMAND 
2690' 

2700' Obslouzeni chyby INPUT nebo CMT 
2710' 

2720HERR:if err-23 then resuee else if e 
rr—18 then print "WGCHYBA MGF !“ssleep 1 
3 resume 

2730 print “Errerrs"in"?errl 



3 LOBICKY CASOVY ANALYZATOR 


; SCOPWARE COPYRIGHT 1987 




ORG 

7900H 


OLDSP 

EQU 

7FEFH 

jTOS 


; SBER 

DAT OD 

20 MIKROSEKUND 

3 VSTUP 

3 B. . 

konstanta pro CTC 

; 

C.. 

. vstupni port 

: 

D. . 

startovaci podminka 

l 

E. . 

.maska start, podm. 

• 



START: 

CALL 

BEGIN 

P0DM1: 

IN 

A,(C) 3 vstup dat 


AND 

E ;maska 


XOR 

D 1 podminka? 


JR 

Z.SPLN sano 


IN 

RLCA 

A,(S0H) 


JR 

NC.PODMl ;nebylo RESET 

SPLN: 

LD 

A,B 


OUT 

(02H),A skonst. do CTC 


LD 

A.81H ;DI pro VDP 


OUT 

(11H>,A 


OUT 

(11H),A ;do Rt VDP 


El 

3 pro CTC #2 


XOR 

A 3 A—0 

HLT s 

HALT 

3 cekej na INT 


JP 

NZ.HLT sneni konec 


RYCHLY SBER DAT 6.14 MIKROSEK. 


5 VSTUP: C...VSTUPNI PORT 


3 

D. . . 

STARTOVACI 

PODMINKA 


| 

E... 

MASKA 



3—“• 

—= 




INIT : 

DI 


izakaz INT 



LD 

HL,0A000H 3 odkud RAM 


LD 

B ,0 

:2S6x 


LOOP: 

IN 

A, (C) 

; data 



AND 

E 

3 maska 



CP 

D 

3 podminka 



JR 

NZ.LOOP 

3 jest* ne 


FSBERi 

INIR 


3 vlastni sbe»— 


RET 

NZ 

3 -instrukce 


INIR 


3 INIR a RET NZ 


RET 

NZ 

3 se opakuji 


INIR 


3 192x 



RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 


INIR 



RET 

NZ 

RET 

NZ 




INIR 





RET 

NZ 




INIR 





RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 


INIR 



RET 

NZ 

RET 

NZ 


INIR 





RET 

NZ 




INIR 





RET 

NZ 




INIR 





REB 

NZ 




INIR 





RET 

NZ 




INIR 





El 


3 pOVOl “ 



RET 


s- a j* to 







tRYCHLY SBER DAT BEZ PODMINKY 

5 

5 VSTUP s C...port 


LD 

ADD 

CALL 

LD 


A.D 
A.7 
0454H 
A.D 


(cisla spritu 
(vypocti 
iSTSCOD 
;c.spritu 


$ tiBsm 




ADD 

A.7 

) vypocti 

FSBRES: 

DI 

(zakaz INT 


CALL ' 

B44SH 

tSTSCOL 


LD 

HL.0A000H s odkud RAM 

1 

LD 

8 ,D 

; pararoetr 


LD 

B.0 : 256:: 


DJNZ 

PREV 

; 

FSBRE1: 

IN 

A.(BOH) 


RET 


{ t onec 


RLCA 

tbylo RESET? 

5 





JP 

NC.FSBRE1 ;neb y1o 

TREDL: 

DB 

0A4H.O5H 

. 0ASH.B8H 


JP 

FSBER tsbirej 

? 





ZOBRAZENI JEDNE OBRAZQVKY 
sc opH are /C/ 1987. 


MLEDANI a OD hi. DELKA-bc 




HLEDEJ: DI 

(zakaz INT 

VSTUP: DE. 

..adresa znacky 

CPIR 

(hledej 

HL. 

..odkud zobrazit 

El 

Jpovol INT 



RET 

:vrat se 


OIRAZj 


OBRli 


DI 

PUSH 

PUSH 

POP 

LD 

CALL 

INC 

BIT 

JR 

POP 

CALL 

RET 


DE 

ML 

IX 

E.0 

OBRSLO 

E 

B.E 
Z,OBRl 

Sn. 


szakaz INT 
iadr.znacky 
; odkud-MX 

tod 8. sloupce 
;sloupec 
j dal si 
Ivsech 32? 

»jests ne 
(adr.znacky 
tzobraz znacku 
lhotovo 


jZOBRAZENI JEDNOHO SLOUPCE <8bit> 


E...cislo sloupce 
XX..odkud v paaeti 


ZOBRAZENI ZNACKY 


1 

{ VSTUP 

t «... 

.poloha 

znacky 

) 

ZOBZNA: 

LD 

A.H 

;hl>233? 


OR 

A 



JR 

Z,DRAMS tneni 


LD 

HL.-l 

(nekrasli 

DRAW3: 

LD 

A. 31 

:od spritu 


LD 

B.8 

|8 spritu 

PHOVE: 

PUSH 

BC 



PUSH 

HL 



PUSH 

AF 



CALL 

042BH 

tGTSPOS 


POP 

AF 


.. |., 

POP 

HL 



PUSH 

AF 



CALL 

03CEH 

jMVSPA 


POP 

AF 



TOP 

BC 



DEC 

A 

I dalsi spr; 


DJNZ 

PMOVE 

(8x 


El 

RET 


RESULT: DS 


(POvol INT 
:navrat 


:pro vypocty 


; POSUNUTI SPRITU PO OSE X 

J 

s VSTUP : HL...nova s-ova sour. 


SPRSUNi LD A,23 jpoc.spr. 

HOVE: PUSH HL 

PUSH AF 

CALL 042BH jGTSPOS 

POP AF 

POP HL 

PUSH AF 

CALL 03CEH jHVSPA 

POP AF 

CP 8 tie 8.sprite? 

JR NZ.HOV1 msni 

LD DE.0008H irozdil 


( omncmm 

5 

OBRSLO: LD 

PUSH 
CALL 
ADD 
AND 
RLCA 
RLCA 
' RLCA 
LD 
LD 
LD 

TRANS1: LD 
LD 
LD 
XOR 
LD 

TRANS2: RRC 
RL 
INC 
RRCA 
RL 
INC 
DJNZ 
INC 
LD 
LD 
DJNZ 
LD 
LD , 
LD 
LD 
OUT 
OUT 
LD 
LD 


CPL 

LD 

CPL 

OR 

OUT 

LD 

LD 

INC 

INC 

OUT 

NOP 

DJNZ 

INC 

OR 

OUT 

LD 

DJNZ 

POP 

RET 


HL.3900H sL.H.roh 


DE 
14C5H 
A.E 
1FH 


;schovej E 
»SBVRAM 
(vypocet prvni 
tadrtsy VRAM 
;E. sloupce 


DRAM1: 


E.A :lsb->£ 

A. (IX-l) yeinuly stav 

B, 8 :8 byte 

C. B ischovei citac 

HL.RESULT tvysledek 

D, <IX) (data 

D thrany 

B.8 ;8 bitu 

D :vezei bit 

. (HL) (zaroluj 
HL 

(Zaroluj hrany 
(HL) jdo vysledku 

HL :dalsi vysled. 

TRANS2 icel y byte 

IX :dalei data 

A. D leinula data 

B, C icitac bytu 

TRANS1 sdal si byte 

D.6CH ;«sb adr. VRAM 

BC.0811H (port il a 8x 
IY,RESULT ;vysledek 
L.B tschoveJ citac 

<C).E tadreau do VDP 

<C» .0 


DR AW 2: 


I POSUNUTI OBRAZOVKY VLEVO 0 8 



SBC 

HL.DE j paloh x 

) 



ti Wit 

SUB 

1 idalsi sprite 

{ VSTUP : DE.. 

.poloha znacky 


JR 

NC.MOVE »ieste opakuj 

» HL.. 

.odkud v 

paeeti 

? 

RET 

;uz ne 

’ ! -r- r *wmwwmMwmmm 

1 

• 

« 

1 

J 

! 

--r—r-r 

t 

? 



1 

LSUNSi PUSH 

DE 

1 adr.znacky 

1 PREVOD NA 

BIN. TVAR PRO SPRITY 

PUSH ♦ 

HL 

: odkud-MX 

. » 



POP 

IX 


f VSTUP1 

i E.. 

.cislo 

CALL 

PRIPRA 

(inicializace 

; 



LSUN81: LD 

C.B 

scitac radku 

» mmmmmm* 

>ane0ees>seeee. Ka 0 Ca >e«««B 

LD 

B.E 

(20H*dclka rad. 

( 



LSUN82: INC 

A / 

tnovy znak 

PREVOD: 

LD 

B.8 ;8 bitu”byt* 

AND 

1FH 

;eodulo 32 

RREV: 

LD 

D.B t schovej citac 

OR 

D 

»3 vrehni bity 


LD 

HL.PREDL (Predlohy 

CALL 

14BDH 

(PBVRAM 


RLC 

E 

INC 

HL 

(dalsi znak 


JR 

NC.PREV1 »bit»B 

DJNZ 

LSUNS2 



INC 

HL (druha predl. 

EX 

AF.AF * 

(schov.posl .zn 


INC 

HL 

LD 

A.D 

(3 vrehni bity 

PREVli 

LD 

C,(HL) ivezei predl. 

LD 

D.0 

(pro dalsi rad. 


INC 

HL 

ADD 

HL.DE 

;adresa p.d.r. 


LD 

1.(HL) ;a uloz Ji 

ADD 

A.E 



LD 

D.A 

(bity zpet 

EX 

AF.AF 

'(posledni znak 

LD 

B.C 

(citac radek 

DJNZ 

LSUN81 

idalei radek 

LD 

DE,248 

{posled.sloupec 

ADD 

IX.DE 

(vpravo 

LD 

E.1FH 

(to im on 

JR 

SKONCI 

idokonci 


POSUN OBRAZOVKY VPRAVO 0 8 
VSTUP t jako LSUN8 


RSUN8: PUSH 

PUSH 
POP 
CALL 
DEC 

RSUN81: LD 
LD 

RSUN82: AND 
OR 
CALL 
INC 
INC 
DJNZ 
EX 
LD 
LD 
ADD 
ADD 
LD 
EX 
LD 
DJNZ 
LD 

SKONCI: CALL 
POP 
JP 

I 


PRIPRA: DI 
LD 
LD 
CALL 
LD 
RET 


DE 

HL 

IX / 

PRIPRA 

A 

C. B 
B.E 
1FH 
D 

14SDH 

HL 

A 

RSUN82 
AF ,AF ‘ 
A.D 

D. 0 
HL .DE 

A. E 

D. A 
AF.AF" 

B. C 
RSUN81 

E. 0 
OBRSLO 
HL 

ZOBZNA 


; adresa znacky 
(Odkud-MX 

;inicializace 
snovy znak 
5 citac radku 
:del.radku«20H 
;aodulo 32 
snejvys. 3 bity 
(PBVRAM 

;adr.dais.znaku 
;dalsi znak 

(schov.posl.zn. 
izvets.nejvys. 
i3 bitu o I a 
svypocet adresy 
»pro dal. radek 
jbitr zpet 
;posl.znak zpet 
tcitac radku 
tnovy radek 
>1. si. zleva 
;kresli sloupec 
; adratsa znacky 
jkresli znacku 


(zakaz INT 

HL.3900H tadr. i. znaku 
B.B ;8 radku 
14C9H (GBVRAH 
DE.8B20H *3b a del.rad. 
ivrat se 


MERENI PRUHERNEHO KMITOCTU 

VSTUP : A. ..1inka 0-7 

DE..delka ueeku RAH 
ML..odkud v RAM 

VYSTUP: HL..pqcet bran -1 


A,(IY) 

(data 

HERPER: 

DI 

B.(IY+i) 

(hr any 


INC 

.... t: 



LD 

X 

luroven L 


LD 

H.A v 

;schovej 

MERLP: 

RLCA 


luroven H 


DJNZ 

B 

ipridej hrany 


PUSH 

(10H).A 

luroven H 


POP 

A.8 



LD 

B ,6 

l&x hrany 


LD 

D 

:dalsi radek 

MER1: 

LD 

IY 

(priprav 


XOR 

(IOH).A 

1 kresli hrany 


INC 




DEC 

DRAW2 

(opakuj &x 


AND 

IY 

idalsi data 


JR 

H 

ipridej hrany 


INC 

(10H).A 

{kresli L 

NEHRAN: 

LD 

B.L 

(Citac 


OR 

DRAW1 

(dalsi radek 


JR 

DE 

(obnov E 


EI 


(navrat 


RET 


A 

B.A 

A.B0H 


izakaz INT 
ivypocet easfcy 


MERLP 

HL 

IX (odkud-MX 4 

HL.-l ipocet hran-1 

C.A iAlaska do C 

A.(IX-l) sainula data 
(IX) ipor.se aoucaa. 
IX »dalsi data 

»E ;cit.del.ueeku 

C jzaeaskuj 

Z.NEHRAN j neb y1a hrana 


HL 
A.D 
E 

NZ.NER1 


(byla->zvets 

jDE-0? 
ijeate ne 

;povol 
snavrat 


SBER DAT S UKONCOVACI PODMINKOU 

VSTUP : B...konstanta pro CTC 

C. ..vstupni port 

D. ..podsinka 

E. ..easka podminky 


CALL 

BEGIN 

(inicializace 

LD 

A.B 

>cas.konst. CTC 

OUT 

(02).A 


LD 

A.81H 

(DI pro VDP 

’OUT 

CtlH) .A 


OUT 

(tIH).A 

(R1 VDP 

XOR 

A 

(A*0 

EI 


(povol 
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FILL: 

HALT 


;cekej,az se 


JP 

NZ.FILL 

;pamet zapIni 


LD 

HL.UPINT2 splno-zmen 


LD 

(7M4H) 

, HL ;proced. INT 


LD 

HL,0A000H ;pocat.adr. 

RPTs 

IN 

RLCA 

A,(50H) 

;smycka cekani 
;RESET? 


JP 

NC.RPT 

snebylo 

CHALAS: 

CALL 

KONEC 

-.ukonci 


POP 

HL 

;adr.zacat.dat 

, 

JR 

POSUN 

SPosun pamet 


UPINT2: 

EX 

AF.AF' 

schavej AF 


IN 

A, <C> 

data 


LD 

(HL) .A 

uloz 


AND 

E 

maska 


XOR 

D 

podm.splnena? 


JR 

2 , VEN 

ano->skonci 


EX 

AF.AF' 

vrat AF 


INC 

HL 

dal si adresa 


BIT 

7,H 

HL je uz 0? 


JR 

NZ.UP121 

5 ne 


LD 

H.0A0H 

ano- >k#_»A000 

UPI21s 

El 


povol 


RETI 


navr.do smycky 

VEN: 

CALL 

1S6DH 

ISNORJ 


POP 

DE 

znic navr.adr. 


EX 

AF.AF' 

.vrat AF 


JR 

CHALAS 

;a vrat se 

? POSUN 

USEKU 

RAH 0A000H 

- 0FFFFH 

VSTUP 

HI_ 

ADRESA,JEJIZ OBSAH 


PATR1 

NA ADRESU 

0A000H 

POSUN: 

PUSH 

HL 



LD 

HL.2000H 

jschov.predl. 


LD 

DE.3000H 



CALL 

0BS1H 

5 BLKMV2 


POP 

HL 



DI 


;zakaz INT 


LD 

A.0D0H 

;pul RAH 


CP 

H 

3 ktera? 


JR 

C.PUL2 

; 2 .pul ka 


PUSH 

HL 



LD 

DE.6000H 


ADD 

HL, DE 

;—0A000H 


.LD 

B,H 


LD 

C.L 

5 BC c delka 

LD 

A.H 


OR 

L 


JR 

Z,HOTOV 

;nesouptj 

LD 

HL.0A000H 


D.L 


'LD 

E.L 

; DE“0 

CALL 

0E61H 

;RAM-VRAH 

DI 



LD 

H.B 


LD 

L.B 

;HL-0 

POP 

DE 


PUSH 

DE 


SBC 

HL, DE 


LD 

B,H 


LD 

C.L 

;BC«delka 

EX 

DE. HL 

sHL«odkud 

LD 

DE,0A000H 

LDIR 



LD 

BC.6000H 

POP 

HL 


ADD 

HL.BC 

3-0A000H 

LD 

B.H 


LD 

H.C 


LD 

C.L 

3 BC-delka 

LD 

L,H 

sHL-0 

CALL 

0E7DH 

;VRAM—RAH 

JR 

OBRINI 


HOTOV: POP 

HL 


JR 

OBRINI 


PUL2: XOR 

A 

3 CV -0 

PUSH 

HL 


EX 

DE.HL 


LD 

H, A 


LD 

L.A 


SBC 

HL.DE 


LD 

B.H 


LD 

C.L 

;BC>delka 

EX 

DE.HL 

3 HL*odkud 

LD 

D.A 


LD 

E.A 

3 DE”0“kam 

CALL 

0E61H 

3 RAM-VRAM 

DI 



POP 

DE 


LD 

HL.6000H 

ADD 

HL.DE 


LD 

B.H 


LD 

C.L 

;BC>delka 

EX 

DE.HL 


DEC 

HL 

jHL-odkud 

LD 

DE.0FFFFH 


LDDR 

EX 

DE.HL 


XOR 

A 

3CY-0 

SBC 

HL.DE 


LD 

B.H 


LD 

C.L 

3 BC«delka 

'INC 

DE 

;DE-A000H 

LD 

L.A 


LD 

H.A 

;HL»0»od 

CALL 

0E7DH 

3 VRAM—RAM 


5 INICIALIZACE VRAM PO POSUNUTI 



OBRINIi 

XOR 

A ; A—0 


LD 

BC.2S00H srrnluj VRAM 


LD 

HL.0S00H sod barev 2. 


CALL 

0E01H ;PADVRM 


LD 

A.1EH 3 cer+seda 


LD 

BC.0800H 


LD 

HL,0 3 bar.pro l.tre. 


CALL 

0E01H sPADVRM 


LD 

DE.2000H 


LD 

HL.3000H 3 vrat predlohy 


CALL 

0B81H 3 BLKHV2 


DI 

szakaz INT 


LD 

HL.0C00H 


CALL 

149FH sSTVNAD 


LD 

B.0 sbarvy pro 

OBINI» 

LD 

C.B 32.a 3.tratinu 


LD 

B .8 


LD 

HL.BARVY 

0 BIN 2 : 

LD 

A,(HL) 


OUT 

(10H),A 


ir«: 

HL 


DJNZ 

OBII42 


LD 

B.C 


DJNZ 

OBIN1 


El 

3 UZ povol 


RET 

3 vrat se 


BARVYr DB 

81H.0A1H.0A1H 

DB 

0A1H.0A1H.0A1H 

DB 

0A1H.71H 

END 





Ing. Martin Step£nek, j. jovkova azse, Praha 4 


Mudiprocesovy operate! system ZX MULTITASKING pro poteate DC Spectrum umoteujeMgnrttegi vfce 
programs v poCttaii a m02e zabezpedit jejich soufcasny bte. Jedite se tedy o no rt mo inosfa pouifv&nf 
y jSL i jsme se doposud setkAvali jen u vftitich po&fta&L Operate! system je navrien tek,fc pra cuie se y*em» 
druhv orooramO (BASIC, stroiovy k6d, Pascal alp.), pouze se dvteia omezenfmi: maxmteln! yebkoetjednoho 
programuje 38016 bajtO mfsto 48 kB (mus! iota zbft jeftte mlsto na drub* proces - mirantelitel0368 
a prostor pro operate! system) a idivatelskfm procesOm nejsou povoleny nikiete akce, ktete se tykajf rezimu 
pferuieni procesoru. 


V systemu ZX MULTITASKING muie- 
me napFfklad provozovat, ladit ne- 
bo vyhtefet program na podftaCi, 
ktery potttt z^rovert jlny program (vy- 
uiiti dekacfho fcasu pFi dlouhotrvajfclch 
vypoitech). Dal§i moinostf je vyuifvtef 
ruznych pomocnych programs pH 
pr&ci s hlavnlm programem. Jako po¬ 
rn ocny program mOieme mft napffklad 
kalkutetor (viz pffloha — program KAL- 
KULATOR/ZAPISNlK), kde si pro- 
vddfme pomocrte vypoCty a pozrtemky, 
anii bychom ovlivfiovali hlavnf pro¬ 
gram. Velmi vyhodnou moinosti je 
vyuiitf multitaskingu pro elektronicky 
di4F, kde jako paralelnf proces b§if 
dtef, ktery nSs v dob# schOzek, vzkazO 
a jinych ud&Iostf muze upozornit akus- 
tickym signdem a vypsat zpr£vu na 
monitor. 

Podstatnym rysem operaCnfho sy- 
st6mu ZX MULTITASKING je, ie uiiva- 
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tel navrhuje programy bfcinym zpuso- 
bem, vytvofenS programy jsou zcela 
normdnf (bez Sprav) a fungujf i na 
po&fta&i bez tohoto operafcnfho sy- 
stemu! 

OperaCnf system ZX MULTITASKING 
muie pracovat se ZX Microdrive, ZX 
Interface l, joysticky, tisk£rnami a dal- 
§fmi periteriemi bez omezenf. 

zAkladnI pojmy 

Abychom pln§ vyuiili moinostf popi- 
sovanSho operadnfho systemu, mu- 
si me si nejprve ndco pov&dSt o z&klad- 
nfch pojmech, se kterymi se budeme 
b&hem prdce setk&vat. 

PROCES — je sled Cinnostf pro- 
v&dSnych s urCitymi daty. Procesem 
zde tedy rozumfme nejen b6h vlastnfho 
aplikaSnfho programu, ale napffklad 
i jeho editov^nf, vypisov&nf listingu 
apod., kdy vtastnS b&if urCite test 
opera&niho systemu v ROM a operuje 
s daty, kterymi je zde nte aplikaSnf 
program. 


MULTITASKING — je oznateni pro 
pseudoparalelnf zpracov&nf vice pro¬ 
cess. Z hlediska uiivatele se zd&, ie 
procesy probfhajf z&roveft, ve skuteC- 
nosti v§ak procesor stffdavS pracuje 
bucf pro jeden, nebo pro druhy proces. 

PftlOELENf PROCESORU PROCESU 

— znamen4, ie procesor je pln6 
k dispozici potfebdm procesu. Casto 
Ffk&me, ie proces je obsluhov6n. 

AKTIVNi PROCES — je proces, kte- 
r6mu je trvale pFidSlen nebo automatic- 
ky stfldavd pfiddtovdn procesor. 
V konktetnfm okamiiku tedy muie, ale 
tei nemusf, byt procesu pfid&len pro¬ 
cesor. Pokud je aktivnfch process vice, 
je jasn6, ie procesor mSie byt 
v kaid6m okamiiku pfidSlen pouze 
jednomu z nich. 

PASfVNi PROCES — je takovy proces, 
kterteiu trvale nenf pFidfeiov£n proce¬ 
sor. Proces je jakoby zmrazen v ur&ite 
sv6 tezi a nevyvfjf se, dokud se nestane 
opSt aktivnfm. 










PROCES NA POPftEDi — je proce- 
sem, ktery mg neustgle pflstup ke 
klgvesnici, a proto jen s nlm muieme 
komunikovat. Na popfedl je tedy 
v dan6 dobg hlavnl proces. Dgle platf, 
ie na popfedl je vidy jen jeden proces. 

PROCES NA POZADf — nemg prfstup 
ke klgvesnici standard™ rutinou 
z ROM, takie se muie pouze vyko- 
ngvat, ale nemuie komunikovat. Tento 
fakt pozadl je nezbytny, protoie, kdyby 
mglo popredi i pozadl pflstup ke 
klgvesnici, nedalo by se pfl stisku 
klavesy vlastng urgit, ke kterg mu pro- 
cesu stisk patrl (protoie oba bgil 
paralelne). Pokud ovSem potfebujeme 
s procesem na pozadl komunikovat, 
operagnl system ngm umoinl zgmgnu 
popped! s pozadlm. 

uchovAvAnI obrazovky proce- 

SU — je zachovgnl obrazovg informace 
pflslugng procesu nezgvisle na proce- 
sech ostatnlch. Obrazovku mohou 
uchov&vat oba procesy, nebo jen pro¬ 
ces na popped!, pflpadng Zg dny 
z procesu. 


ZP0SOB ZAVEDENf SYSTEMU 

Do prgzdngho poCItafce nahrajeme 
program zgpisem povelu LOAD “zx- 
multi“. Program se sgm spustl a dotgie 
se ngs na ngkterg zgkladnf parametry. 
Zgkladnl hodnota byvg uvedena 
v zgvorce za ot&zkou a pokud s nl 
souhlaslme, nic nezadgvgme a stiskne- 
me jen ENTER. Stejng se zachovgme, 
.pokud na otgzku nejsme schopni od- 
povgdgt. 

Prvnl dotaz se tykg oddglengho 
uchovgvgn! obrgzku. Cgst pamgti urge¬ 
nt pro zgpis informace, kterg se zobra- 
zuje na monitoru, se totiz muie, ale tgi 
nemusl, uchovgvat. Pokud se ucho- 
vgvg, mg kaidy proces svou obrazov¬ 
ku. Pokud se neuchovgvg, majl sice 
procesy obrazovku spolefinou, ale mo¬ 
hou se vyrazng zlepSit gasovg charak- 
teristiky bghu obou procesu a je 
k dispozici vice pamgti. Proto, pokud 
spolefing obrazovka nenl na zgvadu, 
vollme radgji tento reiim. Ngsledujlcl 
dotaz se tykg rozdglenl pamgti mezi 
procesy. Rozdglenl pracovnl oblasti se 
dosghne zadgnlm delky delSIho proce¬ 
su, kterg je normglng 31104 bajtu (bez 
obrazovky) pPi neuchovgvgnl obrazov¬ 
ky a 24192 bajtO (bez obrazovky) p?i 
uchovgvgn! obrazovky. Ngpovgda ngm 
Plkg, jak dlouhy mg byt del§f proces, 
pokud je kratSIm procesem program 
16 kB. K rozdglenl je nutng je§tg podo- 
tknout, ie proces nemuie mlt libovol- 
nou dgiku, ale Ize ji nastavovat 
s krokem 3456 bajtu, coi je jedna 
pracovnl strgnka (uprava zadang hod- 
noty na moinou se dgje automaticky). 
Pri rozdglenl je tgi vhodng se snaiit 
o maximglnl rozdll dglek obou procesu. 
Tehdy je totii multitasking nejefektiv- 
ngj§l a procesy bgil nejrychleji. Posled- 
nlm dotazem inicializaCniho programu 
je doba, po kterou mg b^t proces 
pfidglen po stisku klgvesy. Pokud jsou 
totii oba procesy aktivnl, pridgiuje se 
jim procesor stfidavg. Klgvesnice pri- 
tom patrl procesu na popfedl. Pri stisku 
klgvesy ov§em muie byt procesor 
prgvg pfidglen procesu na pozadl 
a musl dojlt k okamiitgmu pfepnutl 
procesu. Aby pPi souvislg prgci 
s popfedlm nebylo nutng znovu 


a znovu provgdgt toto zpgtng pfidglo- 
vgnl, zustane procesor bezprostredng 
po stisku klgvesy pfidglen popfedl na 
urgitou dobu (prgvg zde zadgvanou). 
Tato vlastnost je zvlggtg duleiitg pfi 
reiimu zachovgvgni obrazovek, proto¬ 
ie jinak by ngm pfi prgci s popfedlm 
mohla rulivg problikgvat obrazovka 
pozadl. 

Po zodpovgzenl otgzek se provede 
inicializace a vytvofenl dvou prgzdnych 
procesu. K dispozici je nejdflve men§l 
z procesu (tj. je na popfedl, je mu 
pfidglen procesor a je aktivnl, zatlmco 
druhy proces je pasivnl). Nynl tedy 
muieme zapsat — nebo nahrgt pomocl 
LOAD — men§l proces a potg pfejft 
pfes menu operadnlho systgmu (pflkaz 
VYM^fll) k druhgmu, delSImu procesu. 


POPIS FUNKCf SYSTeMU 

Vlastnl operagnl systgm ZX MULTI¬ 
TASKING bgil na uplngm pozadl dvou 
uiivatelskych procesu, ke kterym se 
muie chovat ruznym zpusobem. Reiim 
operagnlho systgmu muieme mgnit 
pffkazy z jeho menu, kterg se ngm 
objevl pfi sougasngm stisku klgves 
SYMBOL SHIFT a SPACE. Po celou 
dobu zobrazovgnl menu jsou uiivatel- 
skg procesy pasivnl. Menu je rozdgleno 
na dvg ggsti: pflkazovou (vlevo) 
a stavovou (vpravo). 

Stavovg ggst ngs informuje o reiimu 
operagnlho systgmu a procesu. Ctve- 
regkem je vidy vyznagen proces, ktery 
je v souladu s ngpisem. V prvnlm fgdku 
vidlme dgiku obou procesu ve strgn- 
kgch (1 str = 3456 bajtO) a blikgnlm je 
oznagen proces, ktery je na popfedl. 
Ve druhgm fgdku nalezneme, ktery 
z procesu uchovgvg obrazovku. V dal- 
51m fgdku je informace o aktivitg 
. procesu a o fgdek nlie zprgva o prgvg 
pfidglengm procesu. 

Pflkazovg ggst obsahuje ngpovgdu 
zpusobu volgnl dgle uvedenych pflkazu 
(pflkaz se vidy volg stiskem klgvesy 
odpovldajicl inverzng zobrazengmu 
plsmenu): 

VYMENA PROCES0 — zpusobl oka- 
miitou zgmgnu procesu na popfedl 
s procesem na pozadl. Pokud je aktivnl 
jen jeden proces, prohodl se pfirozeng 
takg tato aktivita, takie puvodnl pasivnl 
proces na pozadl se stane aktivnlm 
procesem na popfedl. Jestliie se neu¬ 
chovgvg obrazovka, muslme pogftat 
s tlm, ie po pfepnutl na druhy proces 
zustane na monitoru stejng obrazovka, 
takie by mohlo dojlt k nesprgvng 
domngnce, ie k pfepnutl vObec ne- 
doSlo. 


1 PROCES AKTIVNf — aktivnlm se 
stane prgvg pfidgleny proces a druhy 
proces je pasivnl. Aktivnl proces bude 
zgrovefi na popfedl. 

2 PROCESY AKTIVNl — oba dva 

procesy se stanou aktivnlmi a zagne jim 
byt stfidavg pfidglovgn procesor. Cho- 
vgnl pogltage pfi tomto reiimu je rOzng, 
v zgvislosti na tom, uchovgvgme-li 
obrazovky. Pokud se uchovgvajl obra¬ 
zovky obou procesu, dojde k jejich 
pfeplngnl (projevuje se stfldavym bli- 
kgnlm obrazovek na monitoru). Jestliie 
obrazovky nejsou uchovgvgny, zapisujl 
oba procesy na spolegng stlnltko 
a k blikgnl nedochgzl. Ve speciglnlm 


pflpadg mQie obrazovku uehovat jen 
jeden proces a tehdy stfidavg vidlme 
vlastnl obrazovku procesu s ucho- 
vgvgnlm a slougenou obrazovku dru- 
hgho procesu. 

ZRUSENi PROCESU — zpusobl vyma- 
zgnl a inicializaci procesu, ktergmu 
je prgvg pfidglen procesor. Je to 
nghrada za pflkaz NEW, respektive 
RAND USR 0, z nichi ani jeden nemu- 
ieme pouilt, protoie by doSlo k odpo- 
jenl nebo znigenl druhgho procesu! 

STOP PROGRAMU — zastavl bgh 
programu v prgvg pfidglengm procesu. 
Na rozdll od klgvesy BREAK (kterou se 
zde nedoporuguje pouzlvat) je tento 
pflkaz schopny zastavit i strojovy k6d. 

ENTER — stisk tgto klgvesy opustl 
zobrazeng menu bez zmgny reiimu 
operagnlho systgmu. 

Kromg zgkladnlch pflkazu uvede- 
nych v menu existujl jeStg dal§( mgng 
typickg pflkazy: 

X — stiskem tgto klgvesy provedeme 
zruSenl obou procesu a uplnou iniciali¬ 
zaci systgmu. 

N — tato klgvesa stfidavg zaplng 
a vyplng reiim uchovgvgn! obrgzku 
u pozadl (Ize ji ov§em pouilvat jen 
tehdy, pokud jsme pfi uvodnl instalaci 
systgmu poiadovali uchovgvgn! obra¬ 
zovky). Tuto funkci se v§ak nedoporu¬ 
guje pflli§ pouilvat, protoie vzhledem 
ke svg zvlggtnl povaze muie gasto vgst 
k pogkozenl procesu nebo ke zhrouce- 
nl systgmu. Protoie funkce mgnl roz¬ 
dglenl pamgti, dochgzl k pfesunum 
bloku pamgti, coz muie mlt za ngsle- 
dek zobrazenl nesmyslnych znaku na 
obrazovce. Pokud k tomu dojde, nenl 
to zgvada a obrazovku pflslugngho 
procesu muieme vymazat bgznym 
pflkazem CLS. 

Po pfegtenl popisu pflkazu bez prak- 
tickych zkugenostl se muie zdgt jejich 
pouiivgnl sloiitg. Pokud si ale v§e 
vyzkouglte v praxi, zjistlte, ie sloiitost 
je pouze zdgnlivg a ie zmgny chovgnl 
v dusledku pflkazu jsoii'Zcela logickg 
a ogekgvatelng. 


PRINCIP ClNNOSTI 

Ukolem operagnlho systgmu ZX 
MULTITASKING je umoingnl existence 
a chodu vice programu v pogltagi 
sougasng. Protoie ve skutegnosti pro¬ 
cesor nemOZe obsluhovat vice progra¬ 
mu zgrovefi, je paralelnl obsluha pro¬ 
cesu simulovgna rychlym pfeplrjgnlm 
procesoru mezi procesy. Pfi kaidgm 
pfepnuti procesoru je ovgem nezbytng 
zapamatovat si pfesng stav procesu 
v okamiiku jeho zastavenl a uloiit 
ve§kerg informace v registrech proce¬ 
soru. Pfi zpgtngm pfepnutl procesoru 
je ginnost prgvg opagng. Registry pro¬ 
cesoru se naplnl puvodnlmi hodnotami 
a proces pokraguje pfesng v tom stavu, 
v jakgm byl opuStgn. Pfeplngnl mezi 
procesy se dgje automaticky. Pfeplnacl 
program je aktivovgn periodicky podle 


mikroelektronika 73 


pFerudovdni procesoru vmtrnimi hodi- 
nami. Protoie predani procesoru mezi 
procesy nenastdvd okamiitd, ale trvd 
urditou dobu, je doba, po kterou je 
procesor pFiddlen jednomu procesu, 
stanovena tak, aby pomdr ztrdtovych 
Casu pFepfndnf k CasGm bdhu procesu 
byl pFijatelny. V na§em pFtpadd je 
procesor pFiddlovdn procesu na dobu 
100 ms. Doba prepnuti kolfsd podle 
reiimu, takie v nejhorSfm pFfpadd je 
ztrdtovy das procesoru asi 50 % 
z celkovdho strojovdho dasu a v nejlep- 
§fm pFfpadd 14 %. 

PFiddlovdnf procesoru se rids ndsle- 
dujfcfmi zdsadami. Pokud je jeden 
z procesG pasivnf, je procesor trvale 
pFiddlen procesu aktivnimu. Jsou-li 
oba procesy aktivni, je procesor stFfda- 
vd pFiddlovdn obdma procesum. PFi¬ 
ddlovdnf je periodickd a na stejnou 
dobu. Jestliie ale v tomto reiimu 
stiskneme kldvesu, je procesor okamii¬ 
td pFiddlen procesu na popfedi 
a v nasledujicim definovandm dase 
(mnohem deISfm nez zdkladnf das 
pFiddlenf procesoru) zGstane procesor 
pFiddlen „popredf“, Cfmi se zamezi 
zbytedndmu opakovarri tdto situace pfi 
komunikaci uiivatele s programem 
a zkrdtf se odezva procesu na stisk 
kldvesy. Posledni moinosti pFiddlovdnf 
je nedobrovolnd naruSenf reiimu roz- 
ddlovani strojovdho dasu viivem din- 
nosti uiivatelskdho programu. Pokud 
totii uiivatelsky program zakdie pFe- 
rudenf (ddlajf to napFfklad prfkazy 
BEEP, SAVE, LOAD a dalSI), zustane 
procesor trvale pFiddlen tomuto proce¬ 
su, at do povoleni preruSeni. 

Poditad ZX Spectrum nenf pFizpuso- 
ben na paralelni zpracovdni dat. Jeho 
systdmovd promdnnd jsou napFfklad na 
pevnych adresdch a nikoli pod ukazate- 
lem, coi znamend, ie systdmovd pro¬ 
mdnnd musf byt uloieny. Podobnd 
situace je s obsahem obrazovky, ktery 
je vidy od adresy 16384. Takd progra- 
my jsou vdtdinou vdzdny na konkrdtnl 
absolutni adresy a musi se proto 
v rdmci pFepindni procesu ceid pFesu- 
novat. 

Z dosud uvedendho vyplyvd, te ne- 
sdhneme-H k technickym upravdm po- 
ditade, je jedind moinost realizace vice 
procesG jejich pfenddenf mezi pracovni 
a skladovaci pozicf v operadnf pamdti. 
Algoritmus je pFitom navrien tak, te se 
nepFenddejf celd procesy, ale jenom 
ddst pamdti rovnd ddlce kratSfho pro¬ 
cesu. Proto md takd operadnf systdm 
nejvdtdf Gdinnost pfi maximdlnfm roz- 
dflu ddlek procesG a neuchovdvdnf 
obrazovky, kdy se pFenddf pouze blok 
pamdti v ddlce jednd strdnky (strdnko- 
vdnf bylo vynuceno prdvd nutnostf 
realizace jednoduchdho a rychldho al- 
goritmu pFepfndnf procesG). 

PftiKLAD POU2ITI 

PROGRAM 

kalkulAtor/zApisnIk 

Program KALKULATOR/ZAPISNfK 
je ukdzkou vyuifvdnf vyhod paralelnfch 
programu pod systdmem ZX MULTITA¬ 
SKING. Program, jak ndzev napovfdd, 
umoiftuje provdddnf bdin^ch aritme- 
tickych vypodtu a zapisovdnf vysledkG 
a jinych pozndmek do zdpisnfkovd 
ddsti. Cefy program je napsdn v jazyku 


74 mikroelektronika 


^ INICIAUZACE ^ 


|^Oddelene^jjchovQvdn^obrQ20vky^?^^^^^J 


I Rozdelem' operocni pometi ? 

, I 

I Doba pridelem po stisku ktavesy ? 

■ ■ . * 

I Zavedem ZX Multitasking_ 


Q 


X MULTITASKING 


E) 


Zachovam stavu (ENTER) 


> 


- |Vymena procesu popfedi’ | - 


Jeden aktivni* proces )- 


- j Dva ak tivni' pr ocesy | - 


■0 


rusem procesu 


3- 


*| Stop programu }~ 


"j (zfuseni obou procesu ) ]| ~ 


- | (vypindni obrazovky ) "'~ rlr ' 1 ~| _ 


BASIC a instalujeme ho na pozadf 
hlavnfho procesu, kterym bude stffda- 
vd podle potFeby kalkuldtor nebo hlavnf 
program uiivatele. 

Nahrdnf kalkuldtoru provedeme nd- 
sledovnd. Instalujeme operadnf systdm 
ZX MULTITASKING. Uchovdvdnf obra¬ 
zovky raddji poiadujeme (abychom pro 
prvnf pFiblfienf nemdli probldmy 
s orientacf v procesech) a deldf proces 
nechdme v maximdlnf ddlce, coi je 
ddlka naznadend v zdvorce. Po iniciali- 
zaci systdmu se nachdzfme v menSfm 
procesu a tak mGieme pFfmo nahrdt 
program KALKULATOR/ZAPISNiK 
pFfkazem LOAD ..kalkuldtor". Potd 
mGieme pFfkazem VYMEN v menu 
operadnfho systdmu (zavold se soudas- 
n^m stiskem SYMBOL SHIFT a SPACE) 
pfejft k druhdmu procesu a pracovat na 
ndm. Kdyi si potFebujeme ndco vypo- 
dftat, zapsat nebo naopak ze zdpisnfku 
pFedfst, pFepneme opdt pFfkazem 
VYMEN na kalkuldtor. 

Abychom mohli s kalkuldtorem pra¬ 
covat, uvedeme si zde pFehled jeho 
pFfkazG. PFednd je nutnd si uvddomit, 
ie program pracuje ve dvou reiimech 
(kalkuldtor a zdpisnfk), mezi kterymi 
pFepfndme stiskem ENTER. Po prvnfm 
spudtdnf programu se vidy nachdzfme 
v reiimu kalkuldtoru (naddle se poznd 
podle zobrazeni ndzvu programu 
v prvnf Fddce). Kalkuldtor odekdvd 
zapsdnf aritmetickdho vyrazu, ktery md 
vypodftat. Zapf§eme-li tedy napFfklad 
12*56, zobrazf se vysledek 672, ktery se 
zdrovert uloif do vysledkevd promdnnd 
Ve vysledkovd promdnnd se vidy 


nachdzf poslednf vysledek. Vysledko- 
vou promdnnou mGieme uift v ndsle- 
dujfcfm aritmetickdm vyrazu (napF. v/2 
dd nynf vysledek 336). Zaddvat mGie¬ 
me libovolnd aritmetickd vyrazy povo- 
lend syntax! BASICu, tedy obsahujfcf 
i funkce a relace. Nemuieme pouilt 
promdnnych ve vyrazu, kromd vysled¬ 
kovd promdnnd „v“. Pokud chceme 
poslednf vysledek zapsat do zdpisnfku, 
zapl&eme mfsto vyrazu „I“. Kdyi si 
chceme uddlat v zdpisnfku jinou po- 
zndmku, uvedeme jejl text znakem ,4“ 
(napF. SKCs/rok). Dojde-li pfi vypodtu 
k chybe a pFeruden! programu, pokra- 
Cujeme pFfkazem GOTO 21 

Do reiimu zdpisnfku se dostaneme 
z kalkuldtoru stiskem ENTER. V zdpis¬ 
nfku mGieme vybfrat jednotlivd Fddky 
kurzory „nahoru“ a „dolG“. Novy text 
do Fddky vloifme stiskem „t“ a zapsd- 
nfm textu. Stiskem pFeneseme 
samostatnou hodnotu ve vybrandm 
Fddku do vysledkovd promdnnd 
„v“. Stiskem ENTER se dostaneme 
zpdt do kalkuldtoru. 

K ovdFenf takd mGieme pouilt pro- 
gramy „p1“ a ,,p2‘*, kterd nahrajeme 
kaidy do jednoho procesu, oba je 
spustfme a reiim systdmu nastavfme 
na dva aktivnf procesy. Velmi ndzornd 
tak uvidfme, jak systdm stffdavd pFi- 
ddluje procesor. Do vdtdfho procesu (o 
dostatednd velikosti!!!) takd mGieme 
nahrdt ndjakou hru pro 16 kB Spec¬ 
trum, napFfklad „mazeman“, na nfi si 
mGieme vyzkoudet i zastavenf jejfho 
strojovdho programu funkcf STOP 
v operadnfm systdmu. 



1 CLEAR 29999: LOAD ""CODE 
5 INK la PAPER 6: BORDER 7 

10 CLS : PRINT "ZX MULTITASKING % Stepanek '87 _ 

11 PRINT AT 20,0; PAPER 5;"ENTER-uzije hodnotu v zavorce !!": 
PRINT "NEVITE—LI STISKNETE 'ENTER' ! 

12 PRINT AT 3,0;"Qddelene uchovavani obr.: (NE)": INPUT "Ano/N 
e ? "; o* 

14 LET spodek=23296: IF o*="a" THEN LET spodek=16384: PRINT A 
T 3,26;"ANG " 

16 PRINT : PRINT "ROZDELENI PAMETI PRO DVA PROCESY" 

18 PRINT : PRINT "DELSI PROCES BEZ SCR=(31104)": PRINT PAPER 
5;AT 12,O;"(Pro *mensi'=16KB zadejte 24000)": IF o*="a" THEN PR 
INT AT 7,22;"24192";AT 12,26; PAPER 5;"17000" 

19 INPUT "Kolik bytes? ";v*: IF v*="" THEN LET sv=(o$="a")*7+ 
(o*<>"a“>*9: GO TO 22 

20 LET sv=INT (0.99999+VAL (v*>/3456>: IF sv>9 OR sv>7 AND o*= 
"a" THEN PRINT #0;AT 1,0;"PRILIS VELKY !": BEEP 2,30: GO TO 19 

22 LET v=23295+3456*sv 

24 LET sm=10-sv-2*(o*="a")a LET m=23295+3456*sm 

25 IF sm>sv THEN PRINT #0;AT 1,0;"PROCES NENI VETSI !": BEEP 
2,30: GO TO 19 

26 PRINT AT 7,21;sv*3456;" bytes";AT 8,14;“se scr=";sv*3456+69 
12; “ bytes" 

28 PRINT "-konec pridelene RAM=";v,"-hodnota RAMTOP =";v-l 

68 

30 PRINT : PRINT "KRAT. PROCES BEZ SCR=";sm*3456;" bytes";AT 1 
3, 14;"se scr=";sm*3456+6912;" bytes" 

32 PRINT "-konec pridelene RAM=";m,"-hodnota RAMTOP =";m-l 

68 

34 PRINT : PRINT "PRIDELENI PO STISKU klav.=(2s)": INPUT "Koli 
k sekund? “;p*: IF p*=“" THEN LET p=100: GO TO 40 
36 LET p=50*VAL p*: IF p>20O THEN LET p=200 

40 POKE min,spodek—256*INT (spodek/256): POKE min+l,INT (spode 
k/256): POKE vetsi,v-256*INT (v/256): POKE vetsi+l,INT Cv/256): 
POKE mensi,m-256*INT (m/256): POKE mensi + 1,(m/256): POKE vydrz,p 
50 CLS : PRINT AT 0,0; PAPER 6; INK 1;"ZX MULTITASKING vl.O St 
epanek‘87 POVELY: POPREDICstr): ";sm;“ ";sv;" v-vymena 

Obr.uchovava: 1-1 aktivni Aktivni proc: 2-2 aktivni 

Prideleny pr: z-zrus proc Basic zprava: CS-stop prg 

~ENTER-uchova stav 

52 PLOT 0,167: DRAW 0,-55: DRAW 255,0: DRAW 0,55: PLOT 105,167 
: DRAW 0,-54 

99 RANDOMIZE USR startb 


L 

00020 

00040 

00060 

00080 

OOIOO 

00120 

00140 

00160 

00180 

00200 

00220 

00240 

00260 

00280 

00300 

00320 

00340 

00360 

00380 

00400 

00420 

00440 

00460 

00480 

00500 

00520 

00540 

00560 

00580 

00600 

00620 

00640 

00660 

00680 

00700 

00720 

00740 

00760 

00780 

00800 


;************************ 
;* ZX MULTITASKING * 
;************************ 


00820 MEZ DEFW 0;MEZI PROC. 
00840 TEXT DEFW 0;UV0DNI INFO 
00860 AKTPROC DEFB 1;AKT.PROCES 
00880 POPREDI DEFB l;KLAV8tZ0BR 


5 

; c Martin 

STEPANEK 1987 

00900 

00920 

POCET 

STOPB 

DEFB 

DEFB 

0;PRUCHODY 
0;PR0 BREAK 

BASIC 

EQU 

#12A9 ;MAIN-1 

00940 

00960 

OBA 

VYDRZ 

DEFB 

DEFB 

0;PRC,ZAROVEN 
120;PO STISKU 

PRAMT 

EGU 

23732 

00980 

MENU 

DEFB 

0;FLAG ZOBRAZ 

RAMTOP 

EQU 

23730 

OlOOO 

TEXTV 

DEFB 

32+128 

UDG 

EQU 

23675 

01020 


DEFM 

/* Vetsi pro/ 

RASP 

EQU 

23608 

01040 


DEFM 

/ces !/ 

CHARS 

EQU 

23606 

01060 

TEXTM 

DEFB 

32+128 

E&RSP 

EQU 

23613 

01080 


DEFM 

/* Mensi pro/ 

CHANS 

EQU 

23631 

OllOO 


DEFM 

/ces !/ 

DATADD 

EQU 

23639 

01120 

TEXTA 

DEFB 

32+128 

PROG 

EQU 

23635 

01140 


DEFM 

/ / 

VARS 

EQU 

23627 

01160 


DEFM 

/ / 

ELINE 

EQU 

23641 

<m@o 


BtPM 

/ / 

WORKSP 

EQU 

23649 

01200 


DEFM 

/ / 

STKBOT 

EQU 

23651 

01220 


DEFM 

/ / 

STKEND 

EQU 

23653 

01240 


DEFB 

127;COPYRIGHT 

ATTRP 

EQU 

23693 

01260 


DEFM 

/ 1987 Marti/ 

ATTRT 

EQU 

23695 

01280 


DEFM 

/n Stepanek / 

BORDCR 

EQU 

23624 

01300 


DEFB 

32+128 

REPDEL 

EQU 

23561 

01320 

NEZOBR 

DEFW 

0;POZADI NEZO 

FLAGS 

EQU 

23611 

01340 

MSG1 

DEFB 

0;BASIC1 MSG+ 

ERRNR 

EQU 

23610 . 

01360 

MSG2 

DEFB 

0;BASIC2 MSG+ 


ORG 

63743 

01380 

01400 

S - 

START 

DI 



DISP 1-23744+5000 


ADRESA 

N1 

N2 

MIN 

SP1 

SP2 

NAVRAT 
VETSI 
MENS I 


DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 

DEFW 


RIZENI;PRCSU 
0;UK. DOLNIHO 
0;UK. HORNIHO 
23296;BEZ SCR 
0;SP PROCES 1 
O;SP PROCES 2 
O;NAVRAT. ADR 
O;PROCES(MEZ) 
O;PROCES(MEZ) 


01420 

01440 

01460 

01480 

01500 

01520 

01540 

01560 

01580 

01600 

01620 


LD HL,54399 
LD (VETSI),HL;PROC 
LD HL,26751 
LD (MENSI),HL;PROC 
LD HL,23296;SPODEK 
LD (MIN),HL 
JP ZAVED 


STARTX DI 

CALL VYMEN 
JP ZAVED 


01640 

01660 

01680 

01700 

01720 

01740 

01760 

01780 

01800 

01820 

01840 

01860 

01880 

01900 

01920 

01940 

01960 

01980 

02000 

02020 

02040 

02060 

02080 

02100 

02120 

02140 

02160 

02180 

02200 

02220 

02240 

02260 

02280 

02300 

02320 

02340 

02360 

02380 

02400 

02420 

02440 

02460 

02480 

02500 

02520 

02540 

02560 

02580 

02600 

02620 

02640 

02660 

02680 

02700 

02720 

02740 

02760 

02780 

02800 

02820 

02840 

02860 

02880 

02900 

02920 

02940 

02960 

02980 

03000 

03020 

03040 

03060 

03080 

03100 

03120 

03140 

03160 

03180 

03200 

03220 

03240 

03260 

03280 

03300 

03320 

03340 


STOP IM 1 
RET 

* 

RIZENI DI ; PARALELNICH 
PUSH AF ; PROCESU 
LD A,(STGPB) 

CP 1 

JP Z,BREAK 

XOR A ;CELA KLAVES 

IN A,(254) 

AND 31 
CP 31 

JP NZ,STISK 

LD A,(OBA);ZAROVEN 

CP O 

JP Z,ROMKEY 
LD A,(POCET) 

INC A 

LD (POCET),A 
CP 10;MEZ PREPNUTI 
JP NZ,BEZKEY 
XOR A 

LD (POCET),A 
POP AF 

JP PROCES ;VYMEN 

ROMKEY POP AF 

JP 56 ;POKR. V ROM 

. 

BEZKEY POP AF 
El 

RET ;POKR. BEZ KEY 

BREAK XOR A 

LD (STGPB),A 
__ LD A,(FLAGS) 

RES 7,A 
LD (FLAGS),A 
LD A,150 
LD (POCET),A 
POP AF 
El 

JP BASIC 


STISK PUSH BC 

LD BC,#7FFE ;"OS" 
IN A,(C) 

AND 31 

CP 28;"SPACE"+"SS" 
JP Z,MENUQN 
LD A,(VYDRZ) 

LD B,A 
LD A,255 
SUB B 

LD (POCET),A;ZPOZD 
LD A,(AKTPROC) 

LD B,A 

LD A,(POPREDI) 

CP B 
POP BC 
JP Z,ROMKEY 
POP AF 

JP PROCES ;VYMEN 

POVELY PUSH BC 
POV LD BC,#BFFE 
IN A,(C) 

AND 31 

CP 30 ;"ENTER" 

JP NZ,P0V1 
POVO CALL MENUOFF 
JP POVKON 

P0V1 LD BC,#F7FE 
IN A,(C) 

AND 31 

CP 30 ;"1"PROCES 
JP NZ,POV2 
CALL MENUOFF 
XOR A 

LD (OBA),A 

P0V11 LD A,(POPREDI) 

LD B,A 

LD A,(AKTPROC) 

CP B 
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03360 

03380 

03400 

03420 

03440 

03460 

03480 

03500 

03520 

03540 

03560 

03580 

03600 

03620 

03640 

03660 

03680 

03700 

03720 

03740 

03760 

03780 

03800 

03820 

03840 

03860 

03880 

03900 

03920 

03940 

03942 

03944 

03960 

03980 

04000 

04020 

04040 

04060 

04080 

04100 

04120 

04140 

04160 

04180 

04200 

04220 

04240 

04260 

04280 

04300 

04320 

04340 

04360 

04380 

04400 

04420 

04440 

04460 

04480 

04500 

04520 

04540 

04560 

04580 

04600 

04620 

04640 

04660 

04680 

04700 

04720 

04740 

04760 

04780 

04800 

04820 

04840 

04860 

04880 

04900 

04920 

04940 

04960 

04980 

05000 

05020 

05040 

76 


JP Z,P0VK0N 
POP EC 
POP AF 

•JP PROCES ; VYMEN 
i 

P0V2 CP 29 ; ‘*2"F'R0CESY 
JP NZ,P0V3 
INC A ;TJ.A=1 
LD (OBA),A 

JP POVO 

,- 

P0V3 LD BC,#FEFE 
IN A,<C> 

AND 31 

CP 15 {"V"VYMEN 
JP NZ,POV4 
CALL MENUOFF 
LD A,(POPREDI) 

INC A 

LD <POPREDI>, A 
CP 3 

JP NZ,P0V31 
LD A, 1 

LD (POPREDI),A 
P0V31 POP BC 
POP AF 

JP PROCES ;VYMEN 

P0V4 “CP 29 ; "Z"ZRUS 
JP Z, NEW 
CP 27 |"X“ZAVED 
JP Z,STARTX 

P0V5 CP 30 ; M CS"BREAK 
JP NZ,POV6 
LD A, 1 

LD (STQPB),A 
CALL MENUOFF 
JP P0V11 

P0V6 LD BC,#7FFE 
IN A,(C> 

AND 31 

CP 23 ;"N“NEZOBRAZ 
JP NZ,POV 
LD A,(NEZOBR+1) 

LD BC,0 

LD (NEZQBR),BC 
CP O 

JP NZ,POVO 
LD BC,6912 
LD CNEZOBR),BC 
JP POVO 

POVKON POP BC , 

POP AF 

El 

RET 

MENUON LD A,(MENU) 

CP 1 

JP Z,PGV 

LD A, 1 

LD CMENU),A 

CALL VYMEN jOKENKO 

PUSH HL 

LD A,1+48+64;BARVA 
LD B,0;DELKA 256 B 
LD HL.22528fZAC.AT 
ZAKLAD LD <HL),A 
INC HL 
DJNZ ZAKLAD 
STAVYO LD A,(POPREDI) 

CP 1 

LD A,1+48+64+128 
JP Z,STAVYi 
LD (22590),A fPOPR 
JP STAVY2 

STAVYI LB (22588),A fPOPR 
STAVY2 LD HL,(MIN) 

LD A,H 

CP 64 ;«KDYZ 16384 
JP NZ,STAVY5 ;SCR— 
LD A,(NEZOBR+1) 

CP O i =0 PRO OBA 
JP NZ,STAVY3 
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05060 


LD 

A,1+40+64?BARVA 

05080 


LD 

(22620),A fSCR+ 

05100 


LD 

(22622),A ;SCR+ 

05120 


JP 

STAVY5 

05140 

5 



05160 

STAVY3 

LD 

A,(POPREDI) 

05180 


CP 

1 

05200 


LD 

A,1+40+64;BARVA 

05220 


JP 

Z,STAVY4 

05240 


LD 

(22622),A ;SCR+ 

05260 


JP 

STAVY5 

05280 

5 ——— 



05300 

STAVY4 

LD 

(22620),A ;SCR+ 

05320 

STAVY5 

LD 

A,(OBA) 

05340 


CP 

0 

05360 


JP 

Z,STAVY6 

05380 


LD 

A,1+32+64;BARVA 

05400 


LD 

(22652),A ;AKT+ 

05420 


LD 

(22654),A ;AKT+ 

05440 


JP 

STAVY8 

05460 

; — 



05480 

STAVY6 

LD 

A,(AKTPROC) 

05500 


CP 

1 

05520 


LD 

A,1+32+64;BARVA 

05540 


JP 

Z,STAVY7 

05560 


LD 

(22654),A ;AKT+ 

05580 


JP 

STAVY8 

05600 

5 



05620 

STAVY7 

LD 

(22652),A ;AKT+ 

05640 

STAVY8 

LD 

A,(AKTPROC) 

05660 


CP 

1 

05680 


LD 

A,1+40+64;BARVA 

05700 


JP 

Z,STAVY9 

05720 


LD 

(22686),A;PRID+ 

05740 


JP 

STAV10 

05760 




05780 

STAVY9 

LD 

(22684),A;PRID+ 

05800 

STAV10 

LD 

A,(AKTPROC) 

05820 


CP 

1 

05840 


LD 

A,(ERRNR) 

05860 


JP 

Z,STAVl1 

05880 


CP 

255 ; BEZ ERR 

05900 


LD 

A,0 

05920 


LD 

(MS62),A | MSO— 

05940 


JP 

Z,STAVI2 

05960 


LD 

A, 1 

05980 


LD 

( MSG2 ), A ; MSG+ 

06000 


JP 

STAVl2 

06020 

; — 



06040 

STAVl1 

CP 

255 ; BEZ ERR 

06060 


LD 

A,0 

06080 


LD 

( MSG 1) , A ; MSG- 

06100 


JP 

Z,STAV12 

06120 


LD 

A, 1 

06140 


LD 

(MSG1), A ; MSG+ 

06160 

STAV12 

CALL MSGX 

06180 

STAV14 

POP HL 

06200 


JP 

POV 

06220 

»- 



06240 

MSGX 

LD 

A,(MSG1) 

06260 


CP 

0 

06280 


JP 

Z.MSGX2 ? MSG1- 

06300 


LD 

A,1+32+64;BARVA 

06320 


LD 

(22716),A;MSG1+ 

06340 

MSGX2 

LD 

A,(MSG2) 

06360 


CP 

0 

06380 


RET Z ;MSG2- 

06400 


LD 

A,1+32+64;BARVA 

06420 


LD 

(22718),A;MS02+ 

06440 


RET 









06480 

MENUOFF XOR A 

06500 


LD 

(MENU),A 

06520 


CALL VYMEN fOKENKO 

06540 


RET 

06560 







06580 

VYMEN 

PUSH HL {OKENKO 

06600 


PUSH DE 

06620 


PUSH BC 

06640 


LD 

HL,16384;OKNO 

06660 


LD 

DE,61312;BUFFER 

06680 


LD 

BC,2048 ;DELKA 

06700 

OKNO 

LD 

A,(HL) 

06720 


PUSH AF 

06740 


LD 

A,(DE) 

06760 


LD 

(HL),A 

06780 


POP AF 

06800 


LD 

(DE),A 

06820 


INC HL . 

06840 


INC DE 

06860 


DEC BC 


06880 

06900 

06920 

06940 

06960 

06980 

07000 

07020 

07040 ATRIB 

07060 

07080 

07100 

07120 

07140 

07160 

07180 

07200 

07220 * 

07240 

07260 

07280 


XOR A 
CP B 

JP NZ.OKNO 
CP C 

JP NZ,OKNO 
LD HL,22528;ZAC.AT 
LD DE,61312+2048 
LD B, 0 
LD A,(HL) 

PUSH AF 
LD A,(DE) 

LD (HL),A 
POP AF 
LD (DE),A 
INC HL 
INC DE 
DJNZ ATRIB 
POP BC 
POP DE 
POP HL 
RET 


07300 

. - 

— 

— 

07320 

ZAVED 

DI 

; NOVE PROCESY 

07340 


CALL STOP 

07360 


LD 

A, 1 

07380 


LD 

(POPPEDI S> , A 

07400 


LD 

A, 0 

07420 


LD 

(NEZOBR+1),A 

07440 


LD 

(NEZOBR),A 

07460 


LD 

(STOPX),A 

07480 


LD 

(POCET),A 

07500 


LD 

(OBA),A 

07520 


LD 

(MSG1),A 

07540 


LD 

(MSG2),A 

07560 


LD 

(MENU),A 

07580 


LD 

HL,(VETSI);PROC 

07600 


LD 

(MEZ),HL 

07620 


LD 

HL,TEXTV 

07640 


LD 

(TEXT),HL 

07660 


CALL INIT 

07680 


JR 

N0VYP2 

07700 

STDAL 

LD 

HL,(MENSI);PROC 

07720 

- 

LD 

(MEZ),HL 

07740 


LD 

HL,TEXTM 

07760 


LD 

(TEXT),HL 

07780 

STDAL2 

CALL INIT 

07800 


LD 

A, 248 

07820 


LD 

I,A ;ADR=63743 

07840 


IM 

2 

07860 


El 


07880 


RET 

07900 




t -- 



07910 

NEW 

DI 

; AKTUALNI PROC: 

07920 


CALL MENUOFF 

07940 


LD 

HL,(PRAMT) 

07960 


LD 

(MEZ),HL 

07980 


LD 

HL,TEXTV 

08000 


LD 

(TEXT),HL 

08020 


LD 

A,(AKTPROC) 

08040 


CP 

2 

08060 


JP 

Z,STDAL2 

08080 


LD 

HL,TEXTM 

08100 


LD 

(TEXT),HL 

08120 

08140 


JP 

STDAL2 

5 



08160 

N0VYP2 

DI 

;TYP AMINUS 

08180 


LD 

IY,BASIC;NAVRAT 

08200 


PUSH IY ; ADRESA 

08220 


LD 

IY,#5C3A 


08240 

08260 

08280 

*08300 

08320 

08340 

08360 

08380 

08400 

08420 

08440 

08460 

08480 

08500 

08520 

08540 

08560 

08580 

08600 NP2AM1 
08620 
08640 
08660 


PUSH AF fSIMULACE 
PUSH BC ifULOZENI 
PUSH DE ;REGISTRU 
PUSH HL 
EXX 

EX AF,AF’ 

PUSH AF 
PUSH BC 
PUSH DE 
PUSH HL 
PUSH IX 
PUSH IY 
LD (SP2),SP 
LD BC,3456 
LD DE,(MIN) 

LD HL,(PRAMT) 

ADD HL,BC 
INC HL 
LD (N1),DE 
LD (N2),HL 
SCF 
CCF 








08680 

08700 

08720 

08740 

08760 

08780 

08800 

08820 

08840 

08860 

08880 

08900 

08920 

08940 

08960 

08980 

09000 

SBC- HL, BC 

EX DE,HL 

LOIR 

LB A,(N2+1) 

CP 226 ;HI 57856 

JP Z,NP2AM3 

NP2AM2 LD BC,3456 

LO BE,(N2) 

LD HL,(Nl) 

ADD HL,BC 

EX DE,HL 

ADD HL,BC 

JP NP2AM1 

NP2AM3 LD A,1;AKT. PROCES 
LD ( AKTF'ROC),A 
.JP STDAL 


* 


09O4O*.PROCES DIJULOZENI/NACTENI 

09060 


PUSH AF 

09080 


PUSH BC 

09100 


PUSH DE 

09120 


PUSH HL 

09140 


EXX 

09160 


EX AF,AF' 

09180 


PUSH AF 

09200 


PUSH BC 

09220 


PUSH DE 

09240 


PUSH HL 

09260 


PUSH IX 

09280 


PUSH IY 

09300 


LD A,(AKTPROC) 

09320 


CP 1 

09340 


JP Z,APLUS 

09360 


JP AMINUS 

09380 

PRZPE7 

POP IY 

09400 


POP IX 

09420 


POP HL 

09440 


POP DE 

09460 


POP BC 

09480 


POP AF 

09500 


EX AF,AF' 

09520 


EXX 

09540 


POP HL 

.22560 


POP DE 

09580 


POP BC 

09600 


POP AF 

09620 


El 

09640 


RET 


1 


09680 

APLUS 

LD < SF1) ,SP 

09700 


LD BC,3456 ;BLOK 

09720 


LD HL,(PRAMT) 

09740 


SCF 

09760 


CCF 

09780 


SBC HL, BC 

09800 


INC HL 

09820 


EX DE,HL 

09840 


LD HL,54400 

09860 

API 

LD <N1>,DE 

09880 


LD CN2),HL 

09900 


ADD HL,BC 

09920 


EX DE,HL 

09940 


LDIR 

09960 


LD HL,(N2) ;ZDROJ 

09980 


LD DE,(Nl) jCIL 

lOOOO 


LD BC,3456 ;BLOK 

10020 


LDIR 

10040 


LD HL,(Nl) 

10060 


LD A,(NEZOBR+1) 

10080 


LD B, A 

10100 


LD A,(MIN+1) 

10120 


ADD A, B 

10140 


CP H 

10160 


JP NZ,AP2 

10180 


LD A, B 

10200 


CP 0 

10220 


CALL NZ,SCRPLS 

10240 


LD A, 2 

10260 

* 

LD (AKTPROC), A 

10280 


LD SP,(SP2) 

10300 


JP PRZPET 

10320 

;— 


10340 

AP2 

LD BC,3456 

10360 


LD DE,<N2) 

10380 


LD HL, (NO 

10400 


SCF 

10420 


CCF 

10440 


SBC HL,BC 

10460 


EX DE,HL 

10480 


SBC HL,BC 


10500 

10520 


JP API' 

1 


10540 

AMINUS 

LD (SP2),SP 

10560 


LD A,(NEZOBR+1) 

10580 


CP 0 

10600 


CALL NZ,SCRMNS 

10620 


LD BC,(NEZOBR) 

10640 


LD HL,(MIN) 

10660 


ADD HL,BC 

10680 


EX DE,HL 

10700 


LD HL,(PRAMT) 

10720 


ADD HL,BC 

10740 


LD BC,3456 

10760 


ADD HL,BC 

10780 


INC HL 

10800 

AMI 

LD < N1),DE 

10820 


LD <N2>,HL 

10840 


SCF 

10860 


CCF 

10880 


SBC HL,BC 

10900 


EX DE,HL 

10920 


LDIR 

10940 


LD BC,3456 ;DELKA 

10960 


LD DE,<N1> ;CIL 

10980 


LD HL,(N2) ;ZDROJ 

ilOOO 


LDIR 

11020 


LD A,(N2+1) 

11040 


CP 226 ;HI 57856 

11060 


JP NZ,AM2 

11080 


LD A, 1 

moo 


LD (AKTPROC),A 

11120 


LD SP,(SP1) 

11140 

11160 

? 

JP PRZPET 

11180 

AM2 

LD BC,3456 

11200 


LD DE,<N2> 

11220 


LD hl;(N1) 

11240 


ADD HL,BC 

11260 


EX DE,HL 

11280 


ADD HL,BC 

11300 


•JP AMI 


« 


11340 

SCRPLS 

LD A,(POPREDI) 

11360 


CP 1 

11380 


JP Z,ULOZSC;SCREEN 

11400 


LD BC,6912 

11420 


LD HL,(N2) 

11440 


SCF 

11460 


CCF 

11480 


SBC HL,BC 

11500 


LD DE,16384 

11520 


LDIR 

11540 

11560 

1 

RET 

11580 

ULOZSC 

LD BC,3456 

11600 


LD HL,<N2> 

11620 


SCF 

11640 


CCF 

11660 


SBC HL, BC 

11680 


EX DE,HL 

11700 


LD HL,16384 

11720 


LD BC,6912 

11740 

11760 

11780 


LDIR 

RET 

» * 


11800 

SCRMNS 

LD A,(POPREDI) 

11820 


CP 2 

11840 


JP Z,ULOZ ; SCREEN 

11860 


LD BC,3457 

11880 


LD HL,(PRAMT) 

11900 


ADD HL,BC 

11920 


LD BC,6912 

11940 


LD DE,16384 

11960 


LDIR 

11980 

12000 

■ » 

RET 

12020 

12040 

12060 

12080 

12100 

12120 

12140 

ULOZ 

LD BC,6912 

LD DE,(PRAMT) 

LD HL,16384 

INC DE 

LDIR 

RET 

? 


12160 

INIT 

01 

12180 


LD A,#07 

12200 


OUT (#FE),A 

12220 


LD A,#3F 

12240 


LD I,A 

12260 


DEFB 0,0,0,0,0,0 

12280 


LD HL,(MEZ) 

12300 


XOR A 


12320 


LD BC,16383 

12340 


SBC HL, BC 

12360 


LD B,H 

12380 


LD C,L 

12400 


LD HL,(MEZ) 

12420 


POP DE jNAVRATGVA 

12440 


LD (NAVRAT),DE;ADR 

12460 

NULUJ 

LD (HL),A 

12480 


DEC HL : DEC BC 

12500 


CP B 

12520 


JR NZ,NULUJ 

12540 


CP C 

12560 


JR NZ,NULUJ 

12580 


LD HL,(MEZ) 

12600 


LD (PRAMT),HL 

12620 


LD DE,#3EAF 

12640 


LD BC,#00A8 

12660 


EX DE,HL 

12680 


LDDR ;PLNENI UDG 

12700 


EX DE,HL 

12720 


INC HL 

12740 


LD (UDG) , HL 

12760 


DEC HL 

12780 


LD BC,#0040 

12800 


LD (RASP),BC 

12820 


LD (RAMTOP),HL 

12840 


LD HL,#3COO 

12860 


LD (CHARS),HL 

12880 


LD HL,(RAMTOP) 

12900 


LD (HL),#3E 

12920 


DEC HL 

12940 


LD SP,HL 

12960 


DEC HL 

12980 


DEC HL 

13000 


LD (ERRSP),HL 

13020 


LD IY,#5C3A 

13040 


LD HL,#5CBB 

13060 


LD (CHANS),HL 

13080 


LD DE,#15AF 

13100 


LD BC,#0015 

13120 


EX DE,HL 

13140 

. 

LDIR 

13160 


EX DE,HL 

13180 


DEC HL 

13200 


LD (DATADD),HL 

13220 


INC HL 

13240 


LD (PROG),HL > 

13260 


LD (VARS),HL 

13280 


LD (HL),#80 

13300 


INC HL 

13320 


LD (ELINE),HL 

13340 


LD (HL),#0D 

13360 


INC HL 

13380 


LD (HL),#80 

13400 


INC HL 

13420 


LD CWORKSP),HL 

13440 


LD (STKBOT),HL 

13460 


LD (STKEND),HL 

13480 


LD A,#38 

13500 


LD (ATTRP),A 

13520 


LD (ATTRT),A 

.13540 


LD (BORDCR),A 

13560 


LD HL,#0523 

13580 


LD (REPDEL),HL 

13600 


DEC (IY—58) 

13620 


DEC (IY—54) 

13640 


LD HL,#15C6 

13660 


LD DE,#5C10 

13680 


LD BC,#OOOE 

13700 


LDIR 

13720 


SET 1,(IY+1) 

13740 


CALL #OEDF 

13760 


LD <IY+49),02 

13780 


CALL #0D6B 

13800 


XOR A 

13820 


LD DE,(TEXT) 

13840 


CALL #OCOA 

13860 


XOR A 

13880 


LD DE,TEXTA 

13900 


CALL #OCOA 

13920 


SET 5,(IY+2) 

13940 


LD IY,(NAVRAT) 

13960 


PUSH IY;ADR Z INIT 

13980 


LD IY,#5C3A 

14000 


RET 

14020 

14040 



? 

KONEC 

DEFB 0 t 
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IVO Kfepinsky, KartovarskA S, 30112 Ptzefi 


V obtasti komunikace ilovika s po£ita£em stile roste Aloha dialogu, nejCastfcji prostfednictvim dispieje 
a klivesniee. Zvliiti mikropoAitafce jsou pro dialog vhodni jii svoji koncepci. Na druhi strand realizace lepiiho 
dialogoviho systdmu neni snadni zileiitost, navlc je obvykle odtaiiti od vlastnlho FeSenAhe probtimu, proto 
dasto programitor vytvoFi jakousi nihraiku, kteri formou dotazu a odpovddi realizuje dialog. Toto Feieni je pro 
programitora vyhodni, protoie je neniroini na pracnost; uiivateli, a zvtiitA neznalimu uiivateli, v5ak pFiniil 
obtfie pFi pouifvinf. 

DIATEM realizuje dialogovou fcist programu, umoiftuje programitorovi soustFedit se ptnd na vlastni problem, 
uiivateli pak nabizf nizorny a srozumitelny dialog. 


vyhody DIATEMu 

Ze strany programitora: 

— mini price (dialog je hotovy), 

— srozumitelnijil program (dialogovi 
Cist je oddilena), 

— oddilenl nivrhu dispieje a jeho 
ovlidinl, 

— jednoduchy pfevod programu na 
jiny poiltaC (prizpusobuje se pouze 
diaiogovy system), 

— jeden program muie zabezpe&ovat 
nikolik Cinnosti (pri pouiiti prfstupo- 
vych priv). 

Ze strany uiivatele: 

— pFIjemni price, 

— jednotni forma dialogu pfi rOznych 
programech. 

DIATEM je realizovin pro pouiiti na 
poiltaii PMD-85. Jednoduchym 


DIATEM je napsin v BASICu 
v podobi souboru podprogramu, kteri 
se pFipojl k hlavntmu programu. 

ZAkladnf pojmy 

Dialog se uskuteiftuje pomocl dialo- 
goviho dispieje. Tentodisplej navrhuje 
programitor ve tvaru zadinl dialogo- 
viho dispieje (pomocl prikazu DATA). 
Zadinl dispieje si DIATEM po otevrenl 
tohoto dispieje pri bihu programu 
mini na vnitrnl popis dialogoviho 
dispieje. 

Diaiogovy displej se sklidi z polo- 
iek. S nimi pracuje programitor pomo¬ 
cl funkci DIATEMu. Funkce umoiftujl 
napF. vyplninl hodnoty poloiky, zipis 
do poloiky, vybir poloiky apod. Ke 
kaidi poloice existujl pristupovi priva 
pro vybir a zipis. Poloika v sobi 
sluiuje vlastnosti bodu menu a udaje 
formuliFe. Mi jednotni zadinl, popis 


Pro speciilnl typy pFIstupu Ize pouilt: 

— prizdni mnoiina — cely vektor 
nulovy — nikdo nemi pFIstup, 

— univerzilnf mnoiina — cely vektor 
jedniikovy — vSichni majl pFIstup. 

Poloiky 

Poloika je z hlediska programu nej- 
menil, dile nedilitelni Cist dialogo- 
viho dispieje. PFes ni se pomocl funkci 
dialogoviho systimu uskuteCftuje dia¬ 
log. 

Poloika se sklidi z tichto Cistl: 

— aktivnl bod — bod, na kten/ je 
moino najet kurzorem, a tak vybrat 
poloiku, 

— hodnota — vlastni hodnota poloiky 
(Clslo, text atd.). 

Kaidi z tichto Cistl muie chyb§t, 
podle tobo se rozliSuje pouiiti poloiky: 



v systimu. To znameni, ie veikeri 
zadivini i veikeri zobrazovinl se 
proved! pFes diaiogovy systim. Pro¬ 
gram je tlm jednak zbaven starostl se 
vstupy a vystupy, jednak se stivi 
hardwarovi nezivislym. 


——^ predavanf udaju 
vytvareni 

— realzace vytvareni 


PFistupovi priva 


poloiky uvedena mnoiina skupin, kte- 
ri majl tento druh pFIstupu povolen. 

Pro kaidou poloiku muie byt zadina 
kllCovi klivesa — znakovi klivesa, pFi 
stisku kteri se kurzor pFemlstf na 
danou poloiku (urychlenl pFesunu kur- 
zoru). 


Dialog mflie mlt mnoho forem, pro 
srozumitelnou a jednoduchou obsluhu 
viak jsou nejvhodnijil dvi: 

— technika menu — uiivatel si vyblri 
z nabldky Cinnostl (slouil pro Ffzenl 
Cinnosti), 

— formuliFovi technika — uiivatel 
vyplftuje a opravuje udaje formuliFe 
(slouil pro vstup a vystup dat). 

DIATEM umoiftuje: 

— zobrazenl dialogoviho dispieje, 

— vstup z poloiky, 

— vystup do poloiky, 

— vybSr poloiky, 

— zikladnl editaci zadivanych udaju, 

— respektovinl uiivatelskych priv pro 
vybir a zipis. 
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Pro'pFIstup do poloiek jsou vytvoFe- 
ny skupiny uiivatelu. Kaidi skupina 
ma jini pFIstupovi priva. 

UspoFidinl do skupin je libovolni, 
kaidi skupina mOie obsahovat libovol- 
n£ uiivatele, kaidy uiivatel muie patFit 
do libovolnych skupin. Uiivatel mi pak 
priva viech skupin, do kterych patFI. 
Rozdilenl do skupin urCuje progra- 
mitor. 

PFi uriovinl pFIstupu se porovni 
mnoiina skupin uiivatele s mnoiinou 
skupin, kteri majl privo pFIstupu do 
poloiky. Pokud je nalezena alespoi 
jedna shodni skupina, je pFIstup povo¬ 
len. 

Informace o skupinich je uloiena 
poziCni, urCena polohou bitu ve vekto- 
ru; hodnota bitu urduje pFItomnost 
skupiny. Porovninl mnoiin se providl 
logickym soufiinem vektoru. Pokud je 
vysledek nenulovy, nastala alespoh 
jedna shoda. 


Zadinl dialogoviho dispieje 

Zadinl vytviFI programitor jako Cist 
sviho programu pomocl pFIkazu DATA. 
V zadinl musl uvist: 

— neminni texty na obrazovce, 

— zadinl poloiek. 

Zad&nl je ve tvaru: 

zadinl textu 

zadinl textu 
—1 

podet poloiek (n) 
zadinl poloiky 1 


zadinl poloiky n 

ZadArtf textu je ve tvaru: 

vodorovni adresa na obrazovce, 
svisti adresa na obrazovce, 
text. 










ZadAnf pofoiky je ve tvaru: 

vodorovnA adresa aktivnfho bodu na obrazovce, 

svistA adresa aktivnfho bodu na obrazovce, 

klliovA ktAvesa (znak), 

pffatup k vyb&ru pofoiky, 

vodorovnA adresa hodnoty na obrazovce, 

svisiA adresa hodnoty na obrazovce. 

dAfka hodnoty (podet znakO), 

pffatup k zApisu do hodnoty. 

VodorovnA adresa klfAovAho bodu 
a dAlka hodnoty jsou v popisu displeje 
pouiity k indikaci typu poloiky, proto 
must byt nenulovA. Neexistence (Asti 
poloiky se zadAvA prAzdnou mnoiinou 
pffstupu. 

ZadAnf dialogovAho displeje muie 
byt v programu libovolny poAet, jejlch 
roztiAenl se provAdf pfed otevfenfm 
dialogovAho displeje pflkazem RESTO¬ 
RE Afslo fAdku. 

Popia dialogovAho displeje 

Popis si vytvAff dialogovy system pfi 
otevfenf dialogovAho displeje. Popis je 
u mist An V poli QA. Je sloien z popisu 
jednottrvych poloiek, kaidA poioika je 
umlstAna v jednom fAdku pole QA 
takto: 
sfoupec 

0: vodorovnA soufadnice aktivnfho bo¬ 
du (pokud je zakAzAn vybAr poloiky, je 
tento udaj zApomy), 

1: svistA soufadnice aktivnfho bodu, 

Jfc kifAovA klAvesa (ASCII hodnota 
klAvesy), 

3: vodorovnA soufadnice hodnoty, 

4: svisiA soufadnice hodnoty, 

5:d4lka hodnoty (pokud je zakAzAn 
zApis do hodnoty, je tento Odaj 
zAporny). 


Popis existuje po celou dobu setrvAni 
danAho dialogovAho displeje na obra¬ 
zovce (do otevfenf jinAho displeje). 


Funkce DIATEMu 

Pomocl funkce muie program komu- 
nikovat s uiivatelem. Funkce se volajf 
pflkazem GOSUB Afslo fAdku. Para- 
metry jsou promAnrte s vyhrazenymi 
jmAny, kterA jinde v programu nesmAjf 
b^t pouiita. 

Parametry: 

CP Afslo poloiky, 

HO$(CP) hodnota poloiky, 

PP pfistupovA prAva uiivatete. 

U popisu funkci je vidy uvedeno 
jejich jmAno (mA vyznam pouze pro 
lepAf porozumAnf), Afslo fAdky, pouiitA 
parametry a Ainnost 

INIT 51000 — 

Musi byt pouiita pfed pouiitim vSech 
ostatnfch funkcf, a to pouze jednou 
v programu; slouif pro inicializaci vnitf- 
nlch promAnnych. 

OPEN 52000 vstup: PP 
ProvAdf otevfenf dialogovAho displeje 
pro prAci; provede zobrazeni textu 
a aktivnfch bodu a vytvoff popis dialo¬ 
govAho displeje podte zadAnf dialogo¬ 
vAho displeje a pffstupovych prAv uii- 
vatele; pfed volAnim je nutno zvolit 
dialogovy displej pflkazem RESTORE. 


CURSOR 53000 vstup; CP 
vystup: CP 

ProvAdf nastavenf kurzoru na aktivnf 
bod danA poloiky; pokud tato poioika 
nemA povolen vybAr aktivnfho bodu, 
zkou§ejf„se postupnA nAsledujfcf po¬ 
loiky; vystupnf hodnota CP oznaAuje 
poloiku, kde se kurzor zastavil. 

SET 54000 vstup: CP,HO$(CP) 
Zpusobf zobrazenf fetAzce HO$(CP) 
v hodnotA poloiky; fetAzec je zarovnAn 
doleva, chybAjfcf znaky dopInAny me- 
zerami, pfebyteAnA znaky ofiznuty. 

ASK 55000 vstup; CP 

vystup: HO$(CP) 

Tato funkce umoiftuje vstup z danA 
pofoiky; kurzor skoAf na prvnf znak 
hodnoty a uiivatel mOie hodnotu vy- 
plnit. 

EditaAnf klAvesy: 

posun kurzoru, 

CLR smazAnf hodnoty, 

EOL ukonAenf zadAvAnf. 

GET 56000 vstup: CP 

vystup: CP,HOj>(CP) 
Umoihuje vybAr poloiky a pffpadny 
vstup z tAto poloiky; kurzor je nastaven 
na aktivnfm bodu danA poloiky, uiiva¬ 
tel s nfm muie pohybovat po aktivnfch 
bodech klAvesami «- (pfedchozf po¬ 
ioika a -» (nAsledujfcf poioika) nebo 
klfAovymi klAvesami a klAvesou EOL 
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vybrat iddanou poloiku; pokud nemd 
poloika hodnotu nebo je zakdzdn zdpis 
(bod menu), dinnost funkce kondf, 
pokud poloika md hodnotu (udaj for- 
muldre), je dalSf dinnost stejnd jako 
u funkce ASK. 

Program DIATEM 

Pouiitf BASIC-G na PMD-85 pFineslo 
ndkolik omezeni: 

— volAnf a umfst&nf funkcf: 

BASIC-G neumoifiuje voldni podpro- 
gramu jmdnem, je tedy nutno volat 
dfslem Fddku; dfsla Fddku jsou nemdn- 
nd, proto je DIATEM umfstdn v oblasti 
50000—59999, programdtor ji nesml 
pouift. 

— parametry funkcf: 

BASIC-G neumoifiuje pFeddvat pri vo- 
Idnf parametry, proto byly vybrdny 
promdnnd, kterd program musf pred 
voldnfm funkce nastavit, funkce je pak 
pouiije jako vstupnf parametry, po- 
dobnd funkce nastavuje vystupnf para¬ 
metry. 

— lok£ln( prom6nn6: 

BASIC-G neumoihuje lokalitu promdn- 
nych, proto majl v DIATEMu vdechny 
lokdlnf promdnnd jmdno zadfnajfcf pfs- 
menem Q, programdtor tato jmdna 
nesmf pouift vprogramu. 

DIATEM pouifvd tri hardwarovd zdvisld 
funkce: 

— vstup z kldvesnice: 

je realizovdn pFes podprogram monito- 
ru, void se funkcf USR(-31583); 

— zobrazenf kurzoru: 

kurzor je zndzorndn inverznostf zobra¬ 
zenf znaku, pouifvajf se pro ndj pro¬ 
mdnnd QB$. a QJ$, zobrazovdnf se 
provddf prfkazy BMOVE a BPLOT (pod- 
program 57200); 

— tisk na urdenou poiohu na obrazov- 
ce: 

BASIC-G neumoiftuje tisk na libovol- 
nou poiohu na obrazovce, monitor vdak 
alespoft ddstednd ano; je nutno nastavit 
adresu na obrazovce do pamdti na 
adresdch -16322 a -16321 a nulovat 
poiohu tisku pro BASIC na adrese 
24065 (podprogram 57100). 

Promdnnd 

Global nf prom$nn&. 

NP maximdlnf podet polozek, musf na¬ 
stavit programdtor pFed voldnfm 
INIT, 

CP dfslo poloiky, 

HO$(NP) hodnoty poloiek, 

PP pFfstupovd prdva uiivatele. 

Lokdlnf promdnnd: 

QA(NP,5) popis dialogovdho displeje, 
QB$ levd polovina kurzoru, 

QJ$ pravd polovina kurzoru, 

QC vodorovnd souFadnice kurzoru, 

QD svisld souFadnice kurzoru, 

QE vodorovnd souFadnice tisku, 

QF svisld souFadnice tisku, 

QG$ retdzec pro tisk, 

OH pomocnd promdnnd, dodasnd hod¬ 
noty, 

Ql pozice znaku pFi editaci, 
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QK smdr posunu kurzoru po aktivnfch 
bodech. 

Pomocnd podprogramy • 

Tyto podprogramy jsou voldny 
z funkcf Diatemu, programdtor je v§ak 
muie takd pouift, pokud chce realizo- 
vat specidlnf chovdnf dialogu. Popis 
podprogramu je stejny jako u funkcf: 

PRINT 57100 vstup: QE,QF,QG$ 
Funkce provddf tisk Fetdzce QG$ na 
pozici na obrazovce urdenou QE a QF. 

CURNEG 57200 vstup: QC,QD 
Funkce provddf negaci zobrazenf kur¬ 
zoru na pozici urdend QC a QD. 

EDIT 57300 vstup: CP,HO$(CP),QA 
vystup: HO$(CP) 

Funkce provddf vstup do hodnoty po¬ 
loiky CP s editacf. 

POUZlTl diatemu 

PoFadf a podet pouiitf dialogovych 
funkcf jsou libovolnd, nejdFfve je vdak 
nutno nastavit nejvdtdf podet poloiek 
NP a provdst funkci INIT. 

DIATEM neprovddf kontrolu zaddnf 
dialogovdho displeje, ani pouiitf funkcf, 
to je vdcf programdtora. Pokud se 
podobnd chyba vyskytne, zpOsobf bud* 
nesprdvnd chovdnf dialogu nebo 
ukondenf a hidden f chyby BASICu. 

Vdechny vodorovnd a svisld adresy 
na obrazovce, se kterymi se pracuje, 
jsou takovd, jako by byly urdeny pro 


50000 REM 

50010 REM ******************** 

50020 REM * * 

50025 REM * DIATEM * 

50030 REM * DIALOGOVY SYSTEM * 

50040 REM * PMD-85 * 

50050 REM * * 

50060 REM ******************** 

50070 REM 
50080 REM 
51000 REM 

51010 REM *** INIT *** 

51020 REM INICIALIZACE DIALOGU 
51030 REM 

51040 PP=*—1 :QB$=" ":QJ$=*??????? 

??" 

51050 DIM QA(NP,5>,HOS(NP):QK«1:RETURN 
52000 REM 

52010 REM *** OPEN *** 

52020 REM OTSVRENI DIALOGOVEHO DISPLEJE 
52025 REM DISPLEJE SE ROZLISUJI POMOCI R 
ESTORE PRED VOLANIM 
52030 REM 

52040 GCLSAR:QC=0:QD=0 

52050 READ QE:IF QE>=0 THEN READ QF,QG$: 
GOSUB 57100sGOTO 52050 

52060 READ NP:POR CP«1 TO NP:READ QA(CP, 
0),QA(CP,1),QH,QG$ 

52070 IP (QH AND PP)=0 THEN QA(CP,0)=-QA 
(CP,0) 

52080 QA(CP,2)=ASC(QG$+CHR$(0)):READ QA( 
CP,3),QA(CP,4),QA(CP,5),QH 
52090 IP (QH AND PP)=0 THEN QA(CP,5)=-QA 
(CP,5) 

52100 QE=QA(CP,0):IF QE<0 THEN 52120 
52110 QF=QA(CP,1):QG$=**":GOSUB 57100 
52120 NEXT CP:CP«l:GOSUB 57200:GOTO 5300 
0 

53000 REM 

53010 REM *** CURSOR *** 

53020 REM NASTAVENI KURZORU NA POLOZKU 

53030 REM VSTUP - CP (CISLO POLOZKY) 

53040 REM 

53050 GOSUB 57200 

53060 IP CP<»0 THEN CP=NP 

53070 IF CP>NP THEN CP=1 

53080 IF QA(CP,0)>=0 THEN QC»QA(CP,0):QD 

»QA(CP,1):QK=l:GOTO 57200 

53090 CP=CP+QK:GOTO 53060 

54000 REM 

54010 REM *** SET *** 

54020 REM ZOBRAZENI HODNOTY V POLOZCE 
54030 REM VSTUP - CP (CISLO POLOZKY) 
54040 REM - HOS(CP) (HODNOTA POLOZ 

KY) 

54050 REM 

54060 QE»QA(CP,3):QF=QA(CP,4):IF QB<0 TH 
EN RETURN 

54070 QG$=LEPT$(HO$(CP)+" 

",ABS(QA(CP,5))) 


pFfkaz BMOVE — vodorovnd 0 ai 47, 
svisld 0 ai 241 (242 nelze pouift). 

PFfstupovd mnoiiny se zaddvajf jako 
dekadickd dfsla reprezentujfcf bindrnf 
vektor. Vektor muie mft maximdlnd 16 
mist, tj. mOie byt 16 ruznych pFfstupo- 
vych skupin. Stejnym zpusobem se urdf 
pFfstupovd prdva uiivatele nastavenim 
promdnnd PP. 

Vybdr poloiky pohybem kurzoru 
kldvesami -* se provddf podle poFadf 
zaddnf poloiek. Je proto vhodnd za- 
ddvat poloiky v poFadf, kterd odpovfdd 
logickym pohybum kurzoru. 

PFizpusobeni pro jin6 poditade 

DIATEM je moino pFizpusobit pro 
libovolny' podftad s jazykem BASIC, 
jedinou podmfnkou je moinost realiza- 
ce 

— vstupu z kldvesnice, 

— zobrazenf kurzoru, 

— tisku na urdenou poiohu na obrazov¬ 
ce. 

PFizpQsobenf spodfvd v upravd tdch- 
to tFf funkcf: 

— vstup z kldvesnice — Fddky 56060, 
57330, s tfm souvisejf kddy editadnfch 
kldves — Fddky 56060, 56070, 56100, 
57340, 57350, 57360, 57345. 

— zobrazenf kurzoru — podprogram 
na 57200. 

— pFfmy tisk — podprogram na 57100. 


54080 GOTO 57100 
55000 REM 

55010 REM *** ASK *** 

55020 REM VYZADANI VSTUPU POLOZKY 
55030 REM VSTUP - CP (CISLO POLOZKY) 

55040 REM VYSTUP - HO$(CP) (HODNOTA POLO 
ZKY) 

55050 REM 

55060 GOSUB 53000:GOTO 57300 
56000 REM 

56010 REM *** GET *** 

56020 REM VSTUP S VY3EREM POLOZKY 
56030 REM VYSTUP - CP (CISLO POLOZKY) 
56040 REM - HO$(CP) (HODNOTA POLO 

ZKY) 

56050 REM 

56060 GOSUB 53000:QH=USR(-31583):IF QH=1 
37 THEN 57300 

56070 IF QH=131 THEN CP=CP-1:QK=-l:GOTO 
56000 

56100 IF QH=133 THEN CP«CP+l:GOTO 56000 
56130 FOR QI=»1 TO NP:IP QA(QI,2)=QH THEN 
CP=QI 

56140 NEXT QI:GOTO 56000 
57000 REM 

57010 REM ** POMOCNE PODPROGRAMY ** 

57100 REM * PRINT * 

57110 REM PRIMY TISK NA OBRAZOVKU 

57120 REM QE,QF - POLOHA TISKU, QGS - TE 

XT 

57130 POKE -16322,QE+64*QF-256*INT(QF/4) 

:POKE -16321,195+INT(QF/4) 

57140 POKE 24065,0:PRINT QG$;:RETURN 
57200 REM * CURNEG * 

57210 REM NEGACE ZOBRAZENI KURZORU 

57220 IF QC=0 THEN 57250 

57230 BMOVE QC-1,QD+1 

57240 BPLOT QB$,1 

57250 BMOVE QC,QD-*-l 

57260 BPLOT QJ$,1 

57270 RETURN 

57300 REM * EDIT * 

57310 IF QA(CP, 5)0 THEN RETURN 
57320 GOSUB 57200:QD=QA(CP,4):QI=1 
57330 QC=QA(CP,3)+Q1-1:GOSUB 57200:QH=US 
R(-31583) 

57340 IF QH=137 THEN 53000 

57345 IF QH=14i THEN GOSUB 53000:HO$(CP) 

=*":GOSUB 54000:GOTO 57300 

57350 GOSUB 57200:IF QH=131 THEN QI=*QI-1 

:GOTO 57390 

57360 IF QH=*133 THEN QI=QI+1 :GOTO 57390 
57370 HOS(CP)=MID$(LEFTS(* “+HO$(CP>,QI) 
+CHR$(QH)+MID$(HOS(CP),QI+1),2) 

57390 QE=QA(CP,3)+QI-1:QF=QA(CP,4):QG$=C 

HR$(QH):GOSUB 57100:QI=QI+1 

57390 IF QI=0 THEN QI=*1 

57400 IF QI>QA(CP,5) THEN QI=QI-1 

57410 GOTO 57330 



